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The purpose of the Programmer's Guide is 


to enable programmers to compile, link 
edit, and execute FORTRAN IV (E) programs 
under control of IBM System/360 Operating 


System. The FORTRAN IV (E) language is 
described in the publication IBM System/360 
Basic FORTRAN IV Language, Form C28-6629, a 


corequisite to this publication. 





The Programmer's Guide is 
fulfill its purpose for 
programmers: 


Organized to 
three groups of 


1. Programmers who wish to use the cata- 
loged procedures as provided by IBM 
need read only the "Introduction" and 
"Job Control Languace" sections to 
understand the job control statements, 
and the "Job Processing" section to 
use cataloged procedures for compil- 
ing, link editing, and executing 
FORTRAN programs. The “Programming 
Considerations" and “System Output" 
sections are recommended for program- 
mers who want to use the FORTRAN 
language more effectively. 


2. Programmers who, in addition, are con- 
cerned with creating and retrieving 
data sets, optimizing the use of I/0 
devices, or temporarily modifying IBM- 
Supplied cataloged procedures’ should 
read the entire Progremmer's Guide. 


concerned with making 
extensive use of the operating system 
facilities, such as writing their own 
cataloged procedures, modifying the 
FORTRAN library, or calculating region 
Sizes for operating in a multiprogram- 
ming environment with a variable num- 
ber of tasks, should also read the 
entire Programmer's Guide in conjunc- 
tion with the following publications, 
as they are referred to: 


3. Programmers 


IBM System/360 Operating System: Sys- 
tem Programmer's Guide, Form C28-6550 





IBM System/360 Operating System: Util- 
ities, Form C28-6586 


IBM System/360: FORTRAN IV Library 
Subprograms, Form C28-6596 


IBM System/360 Operating System: 


ces, Form C28-6646 


IBM System/360 Operating System: Job 
Control Language, Form C28-6539 


PREFACE 


IBM System/360 Operating System: Stcr- 
age Estimates, Form C28-6551 


IBM System/360 Operating System: Link- 
Form C28-6538 





IEM System/ 360 Operating System: 
Operator's Guide, Form C28-6540 


IBM System/360 Operating System: ,Mes— 
sages and Codes, Form C28-6631 


IBM System/360 Operating System: 


Programmer's Guide to Debugging, Form 
C28-6670 
This publication contains appendixes 


that: 


e Give several examples of executing load 
modules. 


e Describe the preparation of assembler 
language subprograms for use with a 
main program written in FORTRAN. To 
understand this appendix, these publi- 
cations are prerequisite: 


IBM System/360 Operating System: Assem- 
bler Language, Form C28-6514 


IBM System/360 Operating System: Assem- 
bler  (E) Programmer's Guide, Form 


C28-6595 or IBM System/360 Operating 
System: Assembler (F) Programmer's 


Guide, Form C26-3756 





e Describe the diagnostic messages 
duced during compilation and 
module execution. 


pro= 
load 


For easier reading, the titles of publi- 
cations referred to in this publication are 
abbreviated. For example, references to 
the publication IBM System/360 Operating 
System: Linkage Editor are abbreviated to 
"Linkage Editor publication." 
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The IBM System/360 Operating System (the 
operating system) consists of a control 
program and processing programs. The con- 
trol program supervises execution of all 
processing programs, Such as the FORTRAN E 
compiler, and all problem programs, such as 
a FORTRAN program. Therefore, to execute a 
FORTRAN program the programmer must first 
communicate with the operating system. The 
medium of communication between the pro- 
grammer and the operating system is the job 
control language. 


Job control language statements define 
two units of work to the operating system: 
the job and the job step. The important 
aspect of jobs and job steps is that they 
are defined by the programmer. He defines 
a job to the operating system by uSing a 
JOB statement; he defines a job step by 
using the EXEC statement. Another impor- 
tant statement is the DD (data definition) 
Statement, which gives the operating system 
information about data used in jobs and job 
steps. The sequence of control statements 
and any data placed in this sequence is 
called the input stream. The input stream 
can be read by either a card reader or a 
tape device. 


JOB AND JOB STEP RELATIONSFIP 


When a programmer iS given a problem, he 
analyzes that problem and defines a precise 
problem-solving procedure; that is, he 
writes a program or a series of programs. 
To the operating system, executing a main 
program (and any subprograms it calls) isa 
job step. A job consists of executing one 
Or more job steps. 


At its simplest, a job consists of one 
job step. For example, executing a FORTRAN 
main program to invert a matrix is a job 
consisting of one job step. 


If the problem is complex, one job may 
consist of a series of job steps. For 
example, a programmer iS given ae tape 


raw data from a rocket firing: 
raw data into a 
Three steps 


containing 
he must transform this 
series of graphs and reports. 
may be defined: 


1. Comparing the raw data to projected 
data and eliminatino errors which 
arise because of intermittent errors 
in gauges and transmission facilities. 

2. Using the refined data and a set of 
parameters as input to a set of equa- 
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tions, which develop values for _ the 
production of graphs and reports. 

3. Using the values to plot the graphs 
and print the reports. 


In this example, each step can be a 
separate job with one job step in each job. 
However, designating several related job 
steps as one job is more efficient: pro- 
cessing time is decreased because only one 
job is defined, and interdependence of job 
steps may be stated. (The interdependence 
of jobs cannot be stated.) In the rocket 
firing example, each step may be defined as 
a job step within one job that encompasses 
all processing. Figure 1 illustrates the 
rocket firing job with three job steps. 


DATA SETS 


In Figure 1, two collections of input 
data (raw data and projected data) and one 
collection of output data (refined data) 
are used in job step 1. In the operating 
system, a collection of data that can be 
named by the programmer is called a data 
See. A data set is defined to the operat- 
ing system by a DD statement. 


Raw 
Data 


Job Step 1: 
Refine Data 


Projected 


Data 





Refined 
Data 


Job Step 2: 


Parameters Develop Values 


Job Step 3: 
Generate 
Graphs and 








Figure 1. Rocket Firing Job 
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A data set resides on a volume(s), which 
is an external storage unit accessible to 
an input/output device. (For example, a 
volume may be a reel of tape or ae disk 
pack.) 





Several I/O devices grouped together and 
given a single name when the system is 
generated constitute a device class. (For 
example, a device class can consist of all 
the tape devices in the installation; 
another can consist of the printer, a 
direct access device, and 2 tape device.) 


Indexing Data Sets 


The name of a data set, information 
identifying the volume(s) on which the data 
set resides, device type, and the position 
of the data set on the volume may be placed 
in an index to help the control program 
find the data set. This index, which is 
part of an index structure called the 
catalog, resides on direct access volumes 
with the operating system. Any data set 
whose name and volume identification are 
placed in this index is called a cataloged 
data set. 


Furthermore, a hierarchy of indexes may 
be devised to classify data sets and make 
names for data sets unique. For example, 
an installation may divide its cataloged 
data sets into four oaroups: SCIENCE, 
ENGRNG, ACCNTS, and INVNTRY. In turn, each 
of these groups may be subdivided: the 
SCIENCE group may be subdivided into MATH, 
PHYSICS, CHEM, and BIOLOGY; MATH may con- 
tain volume identification for the data 
sets ALGEBRA, CALCULUS, and BOOL. To find 


the data set BOOL, the programmer specifies . 


all indexes beginning with the largest 
group -- SCIENCE; then the next largest 
group,. MATH; finally, the data set BOOL. 


The complete identification needed to find 


the data set BOOL is SCIENCE.MATH.BOOL. 


Data set names are of two classes. An 
unqualified name is a data set name or an 
index name not preceded by an index name. 
A qualified name is a data set name or 
index name preceded by index names rep- 
resenting index levels; for example, in the 
preceding text, the qualified name of the 
data set BOOL is SCIENCE.MATH.BOOL. 


Before using a qualified name to name a 
data set, the programmer must be sure that 
the index levels specified in a qualified 
name are placed in the catalog. Index 
levels are placed in the catalog bya 
utility program. For more information, see 
the section “Modifying System Control Data" 
in the Utilities publication or 
"Maintaining the Catalog and the Volume 
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Table of Contents" in the 
Programmer‘s Guide. 


systems 


Data Set Labels 


Information such as record format, buf- 
fer length, density, creation date, expira- 
tion date, and an identifier needed to read 
the data set are stored in the operating 
system data set labels. If a data set is 
cataloged and standard labels are specified 
when the data set is created, the informa- 
tion specified in the DD statement to 
subsequently retrieve the data set is sub- 
stantially reduced. In addition to the 
data set name, the only information needed 
to retrieve the data set is the current 
Status of the data set (new, old, etc.) 
and the status the data set is to have when 


the job step is completed (deleted, kept, 
passed, etc.). 
Generation Data Sets 

Data set identification may also _ be 


based upon the time of generation. In the 
Operating system, a collection of succes- 
Sive historically related data sets is a 
generation data group. Each of the data 
sets is a generation data set. A genera- 
tion number is attached to the data group 
name to reter to a particular generation. 
The most recent generation is 0; the gener- 


ation previous to 0 is -1; the generation 
previous to -1 is -2; etc. An index 
describing a generation data group rust 


exist in the catalog. The index is created 
by a data set utility program. 


For example, a data group named WEATHER 


might be used for weather reporting and 
forecasting. The generations for the gen- 
eration data group WEATHER are: 

WEATHER (0 ) 

WEATHER (-1) 

WEATHER (-2) 

When a new generation is created, it is 


where n is an 
For example, after 


called generation (+n), 
integer greater than 0. 


a job step has created WEATHER (+1), the 
operating system changes its name to 
WEATHER(0) at the end of the job. The data 


set that was WEATHER(0) at the beginning of 
the job becomes WEATHER(-1). 


If more than one generation 1s created 
in a job, the first generation created is 


generation (+1); the next generation 
created is generation (+2); and so on 


FORTRAN PROCESSING 


In the operating system environment, a 
source program is called a source module; a 
compiled source module is an object module 
(object program). The object module cannot 
be executed until it is placed in a format 
suitable for loading, and all external 
references to subprograms are resolved. 
This is done by an IBM supplied program -- 
the linkage editor. 


The executable output of the linkage 
editor is a load _ module. However, the 
input to the linkage editor may be either 
object modules or other load modules. 
Linkage editor execution can be expanded 
further: several object modules and/or 


load modules may be combined to form one 
load module. The linkage editor inserts 
the requested library functions and subrou- 
tines into the load module. For example, 
if the compiled object module TEST calls 
subroutines ALPHA and BETA and the library 
function SIN, the linkage editor combines 
the object module TEST and the previously 
link edited load modules ALPHA, BETA, and 
SIN into one load module. This process is 
illustrated in Figure 2. 


A program written in FORTRAN may call 
subprograms written in the assembler lan- 
guage as long as the assembler subprogram 
uses the linkage conventions shown in 
“Assembler Language Subpro- 

editor resolves the 
assembler and FORTRAN 
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Figure 2. lULinkage Editor Execution 


Processing a FORTRAN Program 


After an object module is processed by 


the linkage editor, the resulting load 
module may be executed. Therefore, to 
compile, link edit, and execute a FORTRAN 


program, three steps are necessary: 


1. Compile the FORTRAN source module and 
any FORTRAN subprograms not compiled 
previously to produce one or _ more 
object modules. 


the resulting object 
module(s) and any modules needed to 
resolve external references to forma 
load module. 


2e Link edit 


3. Execute the load module. 


Figure 3 illustrates the problem program 
processing; FORTRAN subprograms and 
assembler subprograms (object modules) are 
used to resolve external references. 
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Figure 3. Typical FORTRAN Processing 


Introduction i11 


Form C28-6603-2 
Page Revised 11/15/68 by TNL N28-0586 


EAS CURE RLY PLN SLR AE EES SUE CLS SERS ALS EID ALG SN END EE 


Each compilation, each linkage eaitor 
execution, and each load module execution 
may be defined as separate jobs, but combi- 
ning the separate jobs into one job is more 
efficient. 


Assume that the source module MAIN is to 
be compiled and executed. MAIN requires 
the services of two subprograms, SUB1 and 
SUB2, and neither subprogram is compiled. 
Since the compiler can perform batched 
compilations, all the compilations can be 
combined in one job step. Three job steps 
are necessary to perform the job: 


JOB: Compile, link edit, and execute 
JOB STEP 1: Compile MAIN, SUB1, SUB2 
JOB STEP 2: Link edit the modules 
JOB STEP 3: Execute load module MAIN 


Qutput_of Processing 


The compiler, linkage editor, and other 
components of the operating system generate 
diagnostic output which can be used to 
debug programs. Among these are listings, 
module maps, and diagnostic messages. 


Data Set Organization 


A data set is a named collection of 


data. Several methods are available for 
internally organizing data _ sets. Three 
types of data sets are accessible in 


FORTRAN processing: 
partitioned data sets, 
data sets. 


sequential data sets, 
and direct access 


A sequential data __set 
the same way as a data set that resides on 
a tape volume, but a sequential data set 
may reside on any type of volume. The 
compiler, linkage editor, and load modules 


process sequential data sets. 


A partitioned data_set (PDS) is composed 
of named, independent groups of sequential 
data and resides on a direct access volume. 
__index resides in the PDS and 
directs the operating system to any group 
of sequential data. Each group of sequen- 
tial data is called a member. (A member of 
a PDS is not a data set.) Partitioned data 
sets are used for storage of any type of 
sequentially organized data. In particu- 
lar, they are used for storage of source 
and load modules (each module is a member). 
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the data set and of the 


Only individual members of a PDS are 
accessible to the compiler. Members of a 
PDS are accessible to a FORTRAN load 
module, but only under certain conditions. 
(See the discussion of the IN, OUT subpara- 
meters of the LABEL parameter in the sec- 


tion "Creating Data Sets."™) 


The FORTRAN library is a cataloged PDS 
that contains the library subprograms in 
the form of load modules. SYS1.FORTLIB is 
the name given to this PDS. 


Processing Partitioned Data Sets: To pro- 
cess a member of a partitioned data_ set, 
the programmer must use the DD statement to 
provide information about the data set and 
the member. The programmer must specify 
(in the DSNAME parameter) both the name of 
member, and must 
indicate (in the LABEL parameter) whether 
the member is to be created or retrieved. 
However, if the programmer requests the 
FORTRAN compiler to process a partitioned 
data set (for example, to compile a source 
deck stored as a member of a partitioned 
data set), no LABEL information need be 
specified. 


Note that the processing of a parti- 
tioned data set is limited to READ or WRITE 
operations only. The programmer is not 
permitted both to READ and WRITE the same 
data set ina single program. 


A direct access _data_set contains rec- 
ords that are read or written by specifying 
the position of the record within the data 
set. When the position of the record is 
indicated ina FIND, READ, or WRITE state- 
ment, the operating system goes directly to 
that position in the data set and either 


retrieves, reads, or writes the record. 
For example, with a sequential data set, if 
the 100th record is read or written, all 


records preceding the 100th record (records 
1 through 99) must be transmitted before 
the 100th record can be transmitted. With 
a direct access data set, the 100th record 
can be transmitted directly by indicating 
in the I/O statement, that the 100th record 
is to be transmitted. However, ina direct 
access data set, records can only be trans- 
mitted by direct access I/0 statements; 
they cannot be transmitted by sequential 
I/O statements. Records in a direct access 
data set can be transmitted sequentially by 
using the associated variable in direct. 
access I/O statements. 


A direct access data set must reside on 
a direct access volume. Direct access data 
sets are only processed by FORTRAN load 
modules; the compiler and linkage editor 
cannot process direct access data sets. 
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Catagorizing a data set as 
partitioned, or direct access reflects its 
organization Catagorizing a data set as 
cataloged or as a generation data set, 
reflects a method of retrieving the data 
set. Sequential, partitioned, and direct 
access data sets can be cataloged; however, 
an individual member of a PDS cannot be 
cataloged because a member is not a data 
set. A generation data set can only be a 
sequential or direct access data set; a 
generation data set cannot be a PDS or a 
member of a PDS. 


sequential, 


Cataloged Procedures 


To reduce the possibility of error in 
the frequent reproduction of job control 


statements, cataloged procedures can be 
written. A cataloged procedure is a set of 


EXEC and DD statements 
accessible to the operating system. (The 
JOB statement cannot be cataloged.) A 
cataloged procedure consists of a single 
procedure step or ae series of procedure 
Steps defined by EXEC statements. A proce- 
dure step in a cataloged procedure is 


equivalent to a job step in a job. Just as 


placed ina PDS 


DD statements are included for a job step, 


DD statements are included in procedure 
steps. 

An EXEC statement in the input stream 
can invoke a cataloged procedure. There 
fore, the definition of job step is 
extended: executing a load module or 
invoking a cataloged procedure is a job 


step to the operating system. 


To simplify the steps involved in com- 
piling and link editing, four cataloged 
procedures for FORTRAN (E) are supplied by 


IBM. These four cataloged procedures and 

their uses are: 

FORTEC compile 

FORTECL compile and link edit into the 
FORTRAN library (FORTLIB) 

FORTELG link edit and execute 

FORTECLG compile, link edit, and execute 


Any cataloged procedure may be tem- 
porarily modified by EXEC and DD statements 
in the input stream; this temporary modifi- 
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JOB CONTROL LANGUAGE 


The FORTRAN programmer uses the job 
control statements shown in Table i to 
compile, link edit, and execute programs. 


JOB MANAGEMENT 


Job control statements are processed by 
a group of operating system routines known 
collectively as job management routines. 
These routines interpret control state- 
ments, control the flow of jobs, and issue 
messages to both the operator and the 
programmer. Job management routines have 
two major components: a job scheduler and 
a master scheduler. 


The specific facilities available 
through the job scheduler and the master 
scheduler depend on the scheduling level 
the installation selects during system 
generation. Schedulers are available at 
two levels: the sequential scheduler and 
the more powerful priority scheduler. 


Sequential schedulers process job steps 
one at a time in the order of their 
appearance in the input stream. Operating 
systems with a primary control program 
(PCP) and those that provide multiprogram- 
ming with a fixed number of tasks (MFT) use 
sequential schedulers. 


Priority schedulers process jobs accord- 
ing to their relative priority and avail- 
able system resources, and can accept input 
data from more than one input’ stream. 
Systems that provide multiprogramming with 


a variable number of tasks (MVT) use 
priority schedulers. 
CODING JOB CONTROL STATEMENTS 

Like any other computer language, the 


job 
ture 


control language has a specific struc- 
and must conform to a prescribed 


(moon nn 


| Format 


|/7/Name Operation Operand [Comment] 


| 
|7/7 Operation Operand [Comment] 


}7* [Comment] 


| 
|77* [Comment ] 


Ui a a a a a a sa a Sc es a a a a lt 


4. Job Control Statement Formats 
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format. To make the definition and 
description of job control statements more 
unaerstandable, a notation to show the 
format of the statements has been devised 
and will be used throughout this 
publication. 
eTable 1. Job Control Statements 

rename aauaa aed cone. Sr ng ee erate ea 1 
] Statement | Function | 
}--~------}------------------------------- { 
| JOB [Indicates the beginning of af 
] jnew job and describes that job. | 
| EXEC | Indicates a job step = and| 
| [describes that job step; indi-| 
| |cates the cataloged procedure | 
] Jor load module to be executed. | 
1. -— f+  --- 

{DD [Describes data sets, and con-| 
| J|trols device and volume | 
| |assignment. | 
jdelimiter|Separates data sets in the | 
] jinput stream from control | 
] |statements; it appears after| 
| jeach data set in the input| 
| | stream. | 
}---------}~------------------------------- { 
jcomment |Contains miscellaneous remarks, | 
| Jannotations, etc., written by| 
| jthe programmer; it can appear| 
Bi [before or after any control| 
| |statement. | 
se a has aera tees oe SS J 


ne See 


GENERAL STRUCTURE OF CONTROL STATEMENTS 


Except for the comment statement, con- 
trol statements contain the identifying 
characters // or /* in card columns 1 and 


Ze The comment statement is identified by 
the initial characters //* in card columns 
1, 2, and 3. Control statements may con- 
tain four fields: name, Operation, 
operand, and comments (see Figure 4). 


Siete lle tas scale aires ca Sis eee Ss ce a a ee seals 1 
Applicable Control Statements | 


eee ne 
EXEC, DD | 
delimiter | 
comment 
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The name contains between one and eight 
alphameric or national characters, the 
first of which must be alphabetic. The 
name begins in card column 3 and is fol- 
lowed by one or more blanks to separate it 
from the operation field. The name is used 
“to: 


1. Identify the control statement to the 
operating system. 


2. Enable other control statements in the 
job to refer to information contained 
in the named statement. 


3% Relate DD statements to I/O statements 
in the load module. 


The operation field contains one of the 
following operation codes: 


JOB 

EXEC 

DD 

Or, if the statement is a delimiter or 
comment statement, the operation field is 
blank. The operation code is preceded and 
followed by one or more blanks. 


Operand Field 


The operand field contains the parame- 
ters that provide information to the 
Operating system. The parameters are 
separated by commas. The operand field is 
ended by placing one or more blanks after 
the last parameter. There are two types of 


parameters, positional and keyword. Posi- 
tional and keyword parameters are identi- 
fied in the definition of control 


statements. 
Positional Parameters: Positional parame- 
ters are placed first in the operand field 
and must appear in a specified order. If a 
positional parameter is omitted and other 
positional parameters follow, the omission 
must be indicated by a comma. If a posi- 
tional parameter is omitted and only key- 
word parameters follow, the omission is not 
indicated by a comma. 


Keyword Parameters: A keyword parameter 
may be placed anywhere in the operand field 
after the positional parameters. A keyword 
parameter consists of a keyword, followed 


by an equal sign, followed by a single 
value or a list of subparameters. If there 
is a list of subparameters, the list must 
be enclosed in parentheses or apostrophes 
and the subparameters in the list must be 
separated by commas. Keyword parameters 
may appear in any order. 


Subparameters: Subparameters are either 
positional or keyword. Positional subpa- 


rameters appear first in the parameter and 
must appear in the specified order. If a 
positional Subparameter iS omitted and 
other positional subparameters follow, the 
omission must be indicated by a comma. If 
a positional subparameter is omitted and 
only keyword subparameters follow, the 
omission is not indicated by a comma. 
Positional and keyword subparameters are 
noted in the definition of control 
statements. 


The comments field can contain any 
information considered helpful by the pro- 
grammer. Comments, except for those ona 
comment statement, must be separated from 
the operand field by at least one blank; 
they may appear in the remaining columns up 
to and including column 71. 


CONTINUING CONTROL STATEMENTS 


Except for the comment statement, which 
is contained in columns 1 through 80, 
control statements are contained in columns 
1 through 71 of cards or card images. If 
the total length of a statement exceeds 71 
columns, or if parameters are to be placed 
On separate cards, operating system con- 
tinuation conventions must be followed. To 
continue an operand field: 


1. Interrupt the field after a complete 
parameter or subparameter, including 
the comma that follows it, at or 
before column 71. (The coding of a 
nonblank character in column 72 is 
optional. ) 


2e Include comments, if desired, 
lowing the interrupted field 
least one blank. 


by fol- 
with at 


3. Code the identifying characters // in 
columns 1 and 2 of the following card 
or card image. 

4. Continue the interrupted operand 


beginning in any column from 4 through 
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Note: Excessive continuation cards should 
be avoided whenever possible to reduce 
processing time for the control program. 





Comments can be continued onto addition- 
al cards after the operand has been com- 
pleted. To continue a comments field: 


1. Interrupt the comment at a convenient 
place. 
in column 


2. Code a nonblank character 


72. 


3. Code the identifying characters // in 
columns 1 and 2 of the following card 
or card image. 


4. Continue the comments field beginning 
in any column after column 3. 


Note: The comment cannot be 


continued. 


statement 


NOTATION FOR DEFINING CONTROL STATEMENTS 


The notation used to define control 
statements in this publication is described 
in the following paragraphs. 


1. The following symbols are used to 
define control statements but are 
never used in an actual statement. 


ae hyphen = 
be. or ] 
ce. underscore 

d. braces 

e. brackets 

f. ellipsis 

Ge superscript 


Pe mm ma 
© tt lw 


The special uses of these symbols’ are 
explained in paragraphs 4 through 10. 


2. Upper-case letters and words, numbers, 
and the symbols below are written in 
an actual control statement exactly as 
shown in the statement definition. 
(Any exceptions to this rule are noted 
in the definition of a control 
statement. ) 


a apostrophe 
be. asterisk * 
c comma ’ 
ad. equal sign = 
€. parentheses ( ) 
f. period ° 
ge Slash / 
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6. 


Lower-case letters, words, and symbols 
appearing in a control statement 
definition represent variables for 
which specific information is substi- 
tuted in the actual statement. 


Example: If name appears ina_estate- 
ment definition, a specific value 


(e.g., ALPHA) is substituted for the 
variable in the actual statement. 


Hyphens join lower-case letters, 
words, and symbols to form a single 
variable. 


Example: If member-name appears in 
a statement definition, a specific 
value (e.g., BETA) is substituted for 
the variable in the actual statement. 


Stacked items or items separated from 
each other by the “or“ symbol repre- 
sent alternatives. Only one alterna- 
tive should be selected. 


Example: The two representations 

A 

B and A|[BIC 

Cc 

have the same meaning and indicate 
that either A or B orc should be 
selected. 


An underscore indicates a default 
option. If an underscored alternative 
is selected, it need not be written in 
the actual statement. | 


Example: The two representations 


A 
B and A|BIC 
C 


have the same meaning and indicate 
that either A or B or cC_ should be 
selected; however, if B is selected, 


it need not be written, because it is 
the default option. 


Braces group_ related items, such as 
alternatives. 
Example: ALPHA =({A]B|C},D) 


indicates that a choice should be made 
among the items enclosed within the 
braces. If A is selected, the result 
is ALPHA=(A,D) If Cc is selected, the 
result can be either ALPHA=(,D) or 
ALPHA=(C,D). 
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Brackets also group related items; 
however, everything within the brac- 
kets is optional and may be omitted 


Example: ALPHA =([A|B]|]C],D) 


indicates that a choice can be made 
among the items enclosed within the 
brackets or that the items within the 
brackets can be omitted. If B is 
selected, the result is ALPHA=(B,D). 
If no choice is made, the result is 
ALPHA=(,D). 


An ellipsis indicates that the preced- 
ing item or group of items can be 
repeated more than once in succession. 


Example: ALPHA[,BETA]... 


indicates that ALPHA can appear alone 
or can be followed by ,BETA repeated 
Optionally any number of times in 
succession. 
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10. A superscript refers to a footnote. 


Example: NEW )+2 
OLD 
MOD 


indicates that additional information 
concerning the grouped items is con- 
tained in footnote number 1. 


11. Blanks are used to improve the read- 
ability of control statement defini- 
tions. Unless otherwise noted, blanks 
have no meaning in a statement defini- 
tion. 


JOB STATEMENT 


1. The name of the job. 

2. Accounting information relative to the 
job. 

3. Programmer's name. 


4. Whether the job control statements are 
printed for the programmer. 


5. Conditions for terminating the 
tion of the job. 


execu-~ 


6. A job priority assignment. 


7. Output class for 
messages. 


priority scheduler 





The JOB statement (Figure 5) is the 8. Specification of main storage require- 
first statement in the sequence of control ments for a job. 
Statements that describe a job. The JOB 
statement contains the following informa- Examples of the JOB statement are shown 
tion: in Figure 6. 
CS rarer A Re Ye ae ee ee ay ee eo oe ee ee ee ee ee 7 
| Name Operational Operand | 
|--------- }--------- |-----~---~--------------------------------------------------------- { 
| | | Positional Parameters | 
| | | | 
| 77 jobname | JOB | ((Laccount-number)] [,accounting-information])1+ 2 3] | 
| | | Q | 
| | |{,programmer-name]*% 56 | 
| | | | 
| | | Keyword Parameters | 
| | | | 
| | | § MSGLFVEL=0 | 
| | | (MSGLFVEL=1 | 
| | | | 
| | | [COND= ( (code, operator) [, (code, operator) ]...7) 8] | 
| | | | 
| | | (PRTY=nn] 9 | 
| | | | 
{ | (MSGCLASS=x] 9 | 
| | | | 
| | | (REGION=nnnnnk] 9 | 
eae p eee eee Bi ie a a als a oe ane ea a ett Dee se a och i ah | 
}2If the information specified (“account-number" and/or "“accounting-information") | 
| contains blanks, parentheses, or equal signs, the information must be delimited by | 
| apostrophes instead of parentheses. | 
}2If only “account-number™ is specified, the delimiting parentheses may be omitted. 
|?The maximum number of characters allowed between the delimiting parentheses or | 
| apostrophes is 142. | 
|“I£ “programmer-name" contains commas, parentheses, apostrophes, or blanks, it must be | 
| enclosed within apostrophes. | | 
|SWhen an apostrophe is contained within "“programmer-name", the apostrophe must be | 
| shown as two consecutive apostrophes. | 

The maximum number of characters allowed for “programmer— -name" is 20. | 
|7The maximum number of tests allowed is 8. Sanaa | 
|}®If only one test is specified, the outer pair of parentheses may be omitted. | 
|°This parameter is used by the priority scheduler only. The sequential scheduler | 
| ignores it. | | 
Ne ec eel ed RAD REE Se pea een aT Weert Nes Te AE ARENT ae PEE ERT eR A MOC RTCA A RSE ya GR aR CaO TR Ee R eR SMT J 


Figure 5. JOB Statement 
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NAME FIELD 
The “jobname"™ must always be specified; 
it identifies the job to the operating 


System. No two jobs being handled concur- 
rently by a priority scheduler should have 
the same “jobname". 


OPERAND FIELD 


Job Accounting Information 


The first positional parameter can con- 
tain the installation account number and 
any parameters passed to the installation 
accounting routines. These routines are 
written by the installation and inserted in 
the operating system when it is generated. 
The precise format of the job accounting 
information is specified by the installa- 
tion. 


As a system generation option with 
sequential schedulers, the account number 
can be established as a required parameter. 
With priority schedulers, the requirement 
can be established with a cataloged proce- 
dure for the input reader. (Information 
about how to write an accounting routine 


may be found in IBM _.System/360 Operating 
System: Systems _Programmer' s Guide.) Oth- 
erwise, the account number is optional. 


Programmer's Name 


name“ is the second 
If no job accounting 
its absence must be 
comma preceding the 
If neither job account- 
ing information nor programmer's name is 
coded, commas need not be used to indicate 
their absence. 


The “programmer 
positional parameter. 
information is coded, 
indicated by a 
programmer's name. 
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This parameter is optional unless it is 
made mandatory at the installation in the 
Same way as job accounting information is 
made mandatory. 
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The MSGLEVEL parameter indicates’ the 
type of control statement messages’ the 
programmer wishes to receive from the con- 
trol program. 


MSGLEVEL=0 
indicates that only control 
diagnostic messages are 
the programmer. 


Statement 
written for 


MSGLEVEL=1 
indicates that all control statements, 
as well as control statement diag- 
nostic messages, are written for the 
programmer. 


Note: If an error occurs in ae control 
Statement that iS continued onto one or 
more cards, only one of the continuation 
cards iS printed with the diagnostics. 


Conditions for Terminating a Job 


At the completion of a job step, a code 
is issued indicating the outcome of the job 
step. Instructions, written by the pro- 
grammer, in a FORTRAN program cannot gener- 
ate the code. The generated code is tested 
against the conditions stated in control 
statements. The error codes generated are: 


0 - No errors or warnings detected 
4 - Possible errors (warnings) detected 
8 - Serious errors detected 
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For the compiler, the SYSLIN DD state- 


ment is omitted, or the NOLOAD option 
is specified. For the linkage editor, 
severe errors are detected. 


16 - For the compiler, the SYSIN or SYS- 
PRINT DD statement is omitted, a per- 
manent I/O error is encountered, the 
source module is nonexistent, or the 
compiler, linkage editor, or ae load 
module terminated abnormally. If any 
error message (except a program inter- 
rupt message) is issued during load 
module execution, a 16 is issued. 


The COND parameter specifies conditions 
under which a job is terminated. Up to 
eight different tests, each consisting of a 
code and an operator, may be specified to 
the right of the equal sign. The code may 
be any number between 0 and 4095. The 
operator indicates the mathematical rela- 
tionship between the code placed in the JOB 
Statement and the codes issued by completed 
job steps. If the relationship is true, 


the job is terminated. The six operators 
and their meanings are: 
Operator Meaning 
GT greater than 
GE greater than or equal to 
EQ equal to 
NE not equal to 
LT less than 
LE less than or equal to 


For example, if a code 8 is returned by 
the compiler and the JOB statement 
contains: 


COND= (7, LT) 
the job is terminated. 


If more than one condition is indicated 
in the COND parameter and any of the 
conditions are Satisfied, the job is 
terminated. 


Assigning Job Priority (PRTY) 


(Used by Priority Schedulers Only) 


To assign a priority other than _ the 
default job priority (as established in the 
input reader procedure), PRTY=nn must be 
coded in the operand field of the JOB 
statement. The term "nn" is to be replaced 
with a decimal number from 0 through 14 
(the highest priority number is 14). 


Whenever possible, avoid using priority 
14. This is used by the system to expedite 
processing of exceptional jobs It is also 
intended for other special uses by future 


features of systems with priority 
schedulers 
If the PRTY parameter is omitted, the 


default job priority is assumed. 


Requesting a_ Message Class (MSGCLASS) 


(Used by Priority Schedulers Only) 


With a quantity and diversity of data in 
the output stream, an installation may want 
to separate different types of output data 
into different classes. Each class is 
directed to an output writer associated 
with a specific output unit. The MSGCLASS= 
X parameter allows the messages issued by 
the job scheduler to be routed to an output 
class other than the normal message class, 
A. Replace the letter “x" with an alpha- 
betic or numeric character. An output 
writer, which is assigned to process this 
class, will transfer this data to a specif- 
ic device. 


Specifying Main Storage Requirements for a 
Job (REGION) 


(Used by Priority Schedulers Only) 


REGION=nnnnnk can be specified to indic- 
ate the amount of main stcrage to be 
allocated to the job. Replace the term 
"nnnnn" with the number of 1024-byte areas 
to be allocated to the job; e.g., REGION= 
50K. This number can range from one _ to 
five digits and cannot exceed 16,384. 


If the REGION parameter is omitted, the 
default region size (as established in the 
input reader procedure) is assumed. 


Note: If different region sizes are to be 
specified for each step in the job, the 
REGION parameter should be coded in the 
EXEC statement associated with each step 
instead of in the JOB statement. 


EXEC STATEMENT 


The EXEC statement (Figure 7) indicates 
the beginning of a job step and describes 
that job step. The statement contains the 
following information: 


1 The name of the job step or 


procedure 
step. 7 
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2 Name of the cataloged procedure or 5 Conditions for bypassing the execution 
load module to be executed. of this job step. 
6. A time limit for the job step or an 
3. Compiler and/or linkage editor options entire cataloged procedure. 
passed to the job step. 
7. Specification of main storage require- 
4. Accounting information relative to ments for a job step or an entire 
this job step. cataloged procedure. 
} 
Ce ee er a en Pa Te be en ey ne ee 1 
| Name Operation] Operand | 
L- 
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| 

| 

| 

| | 

| | 

| | 

i { | 

| | 

l { | 

| | 

| | | 

| | 

| | | 

| | | fAccT | 

{ re =(accounting-information)? 6 | | 

| | | 

| | ee | 

i ' Poi pEOeateee | = Cceese SaecaLeci ceapeaneie -ocxeceis | 

| | [, (code, operator[,stepname[.procstep]])]...%)9; | 

| | 10,1421 

| | Gas | 

] ] TIME, procatep’} =(minutes, seconds) | 

| | 

| | : | 

| | fREGION | 

| —— | 

Swe ow eso ee: 4_--------1-~ ~~ --- - +--+ +--+ +--+ ++ +--+ ee ee + = +--+ J 

j *"stepname" is required when information from this control statement is referred to | 

| in a later job step. | 

|] #If this alternative is selected, it may be repeated in the EXEC statement, once for | 

{ each step in the cataloged procedure. | 

}] 3If the information specified contains blanks, parentheses, or equal signs, it must | 

] be delimited by apostrophes instead of parentheses. 

| “If only one option is specified and it does not contain any blanks, parentheses, or | 

} equal signs, the delimiting parentheses may be omitted. | 

] SThe maximum number of characters allowed between delimiting parentheses is 100. If | 

} the option list is enclosed in apostrophes, however, the PARM parameter must be | 

| coded on one card. | 

} ©If "“accounting-information" does not contain commas, blanks, parentheses, or equal | 

} signs, the delimiting parentheses may be omitted. 7 | 

| 7The maximum number of characters allowed between the delimiting apostrophes or | 

| parentheses is 144. | 

| ®The maximum number of repetitions allowed is 7. | 

] 9If only one test is specified, the outer pair of parentheses may be omitted. { 

}1°This parameter is used by MVT priority schedulers only. Sequential schedulers | 

|} ignore it. | | 

}221f only minutes are given, the parentheses need not be used. If only seconds are | 

j} given, the parentheses must be used and a comma must precede the seconds. | 

ESS A ie Se mate hen SAD Pe le he RRL ioe PA NSP Ty SO PT ME Poet Ae lO es ro OD Re ed ask Se eee RT Ne aT PS J 
Figure 7. EXEC Statement 
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// {stepname] 1] EXEC 


Positional Parameter 


PROC=cataloged-procedure-name 
cataloged-procedure-name 
PGM=program-name 

| [Patics. stepname. daname 
\PGM=*. stepname. procstep. ddname 


Keyword Parameters 


PARM 
PARM. procstep2jf =(option[, option]...)3 * § 
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8 shows the EXEC 
programe. 


of Figure 
execute a 
2 in Figure 8 shows an EXEC state- 
ment that invokes a cataloged procedure. 


Example 1 
statement used to 
Example 


NAME FIELD 


The “stepname" is the name of the job 
step. It is required when information from 
this job step is referred to in a later job 
step. 


OPERAND FIELD 
Positional Parameter 


The options in the positional parameter 
of an EXEC statement specify either the 
name of the cataloged procedure or program 
to be executed. Each program (load module) 
to be executed must be a member of a 
library (PDS). The library can be the 
system library (SYS1.LINKLIB), a private 
library, Or a temporary library created to 
store a program from a previous job step of 
the same job. 


Specifying a Cataloged Procedure: 


PROC=cataloged-procedure-name 
cataloged-procedure-name 
indicate that a cataloged procedure is 
invoked. The “cataloged procedure 
name" is the unqualified name of the 
cataloged procedure. For example, 


: REu 
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PROC=FORTEC 


indicates that the cataloged procedure 
FORTEC is to be executed. 


Specifying a Program in a Library: 


PGM=program-name 
indicates that a program is executed. 
The “program name" is an unqualified 
member name of a load module in the 
system library (SYS1.LINKLIB) or pri- 
vate library. For example, 


PGM=IEWL 


indicates that the load module IEWL is 
executed. A load module ina private 
PDS (private library) is executed by 
joining the private library with the 
system library through the use of a 
JOBLIB DD statement. See the discus- 
sion concerning JOBLIB. 


Specifying a Program Described in a Pre- 


PGM=*. stepname. ddname 

indicates that a program is executed, 
but the program is taken from a data 
set specified in a DD statement of a 
previous job step. The * indicates 
the current job; "“stepname" is the 
name of a previous step within the 
current job; and “ddname" is the name 
of a DD statement within that step. 
(The "“stepname" cannot refer to a job 
step in another job.) For example, in 
the statements, 
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4/7UXIX JOB , JOHNSMITH, COND=(7, LT) 


//7STEP4Y EXEC PGM=IEWL 
7/SYSLMOD DD DSNAME=MATH (ARCTAN) 


//STEPS EXEC PGM=*.STEP4.SYSLMOD 


Statement STEP5 indicates that the 
name of the program is taken from the 
DD statement SYSLMOD in job step 
STEP4. Consequently, the load module 
ARCTAN in the PDS MATH is executed. 


PGM=*.stepname. procstep.ddname 

indicates that a program is executed, 
but the program is taken from the data 
set specified in a DD statement of a 
previously executed cataloged proce- 
dure. The * indicates the current 
job; “stepname" is the name of the job 
step that invoked the cataloged proce- 
dure; "procstep" is the name of a step 
within the cataloged procedure; 
"“ddname" is the name of a DD statement 
within that procedure step. (The 
"“stepname" cannot refer to a job step 
in another job.) For example, consid- 
er a cataloged procedure FORT, 


7/COMPIL EXEC PGM=IEJFAAAO 
4/SYSUT1 DD UNIT=TAPE 
//SYSLIN DD DSNAME=LINKINP 


EXEC PGM=IEWL 
DSNAME=RESULT (ANS) 


7 /LKED 
//SYSLMOD DD 


Furthermore, assume the following sta- 
tements are placed in the input 
stream; 

//XLIV JOB ,SMITH, COND=(7, LT) 
4/381 EXEC PROC=FORT 


4/82 EXEC PGM=*,51. LKED. SYSLMOD 
//¥*¥T03F001 DD UNIT=PRINTER 
//¥T01F001 DD UNIT=INPUT 


The statement S2 in the input stream 
indicates that the name of the program is 
taken from the DD statement SYSLMOD in the 
' procedure step LKED in the procedure 
invoked by the EXEC statement Si Conse- 
quently, the load module ANS in the PDS 
RESULT is executed. 
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Keyword Parameters 


The keyword parameters may refer to a 
program, to an entire cataloged procedure, 
or to a step within a cataloged procedure. 


If the parameter refers to a program or 
to an entire cataloged procedure (with the 
PARM parameter only the first procedure 
step is affected), the keyword is written 
followed by an equal sign and the list of 
subparameters. (In example 2, Figure 8, 
the parameter ACCT applies to the entire 
procedure.) When parameters are overridden 
in a cataloged procedure step, the keyword 
is written, a period is placed after the 
keyword, and the stepname follows immedi- 
ately. (In example 2, Figure 8, the cata- 
loged procedure FORTECLG is invoked. Two 
sets of PARM options apply to two different 
procedure steps; one applies to the proce- 
dure step FORT and the other to the proce- 
dure step LKED.) More information about 
Overriding cataloged procedures is given in 
the section "Cataloged Procedures." 


Options FOr _ the Compiler _and__ Linkage 
Editor: 


The PARM parameter is used to pass 


options to the compiler or linkage editor. 
(PARM has no meaning t0O a FORTRAN load 
module. ) 

PARM 


passes options to the compiler or 
linkage editor, when their execution 
is indicated by the PGM parameter in 
the EXEC statement. If the execution 
of a cataloged procedure is indicated, 
the options specified in the first 
procedure step are overridden by the 
options in the new PARM parameter; any 
options specified in other procedure 
steps are deleted. 


PARM. procstep 
passes options to a compiler or link- 
age editor step within the named cata- 
loged procedure step. Any PARM para- 


meter in the procedure step is 

deleted, and the PARM parameter that 

is passed to the procedure step is 
inserted. 

A maximum of 100 characters may be 

written between parentheses that enclose 


the list of options. 
close the option list, the 
must be coded on one card. 


If apostrophes en- 
PARM parameter 


The format for compiler options and 
those linkage editor options most applic- 
able to a FORTRAN program is’ shown in 


Figure 9. 
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Linkage Editor: 


PARM MAP , LET 
PARM. procstepf=( |XREF| |, XCAL} (,NCAL] [,LIST] [,OVLY])2 


Figure 9. 


Detailed information concerning compiler 
and- linkage editor options is given in the 
section "Job Processing." 


This COND parameter (unlike the one in 
the JOB statement) determines if the job 
step defined by the EXFC statement is 


bypassed. 


COND 

states conditions for 
execution of a program or an entire 
cataloged procedure. If the EXEC 
statement invokes a cataloged proce- 
dure, this COND parameter replaces all 
COND parameters in each step of the 
procedure. 


bypassing the 


COND. procstep 
States conditions for bypassing the 
execution of a specific cataloged pro- 
cedure step “procstep". The specified 
COND parameter replaces all COND pa- 
rameters in that procedure step. 


The subparameters for the COND parameter 
are of the form: 


(code,operator([(,stepname] ) 
The subparameters “code" and "operator" 


are the same as the code and operator 
described for the COND parameter in the JOB 


statement. The subparameter "stepname" 
identifies the previous job step that 
issued the code. For example, the COND 


parameter: 


COND.GO=((5,LT, FORT), (5,LT,LKED) ) 
indicates that the step in which the 
COND parameter appears is bypassed if 
5 is less than the code returned by 
either of the steps FORT or LKED. 


an me eee ee ED Ee cae eee eee ee eee ce CUD que ce Gees ome om cme ae cee ce ce cme eee ee ee ee ee ee ee es ee ee ce ee oe oe ee ee ee 


Compiler and Linkage Editor Options 


f, SOURCE \ 
\, NOSOURCE 


,BCD ,SPACE| {, ADJUST 4 
,EBCDICf ),PRFRMf ),NOADJUST 


If a step in a cataloged procedure 
issued the code, "“stepname" must qualify 
the name of the procedure step; that is, 


(code,operator[,stepname.procstep] ) 


If “stepname" or "stepname.procstep" is 
not given, “code" is compared to all codes 
issued by previous job or procedure steps. 


Accounting Information 


The ACCT parameter specifies accounting 
information for a job step within a job. 


ACCT 
is used to pass accounting information 
to the installation accounting rou- 
tines for this job step. 


ACCT. procstep 
is used to pass accounting information 
for a step within a cataloged proce- 
dure. 


If both the JOB and EXEC statements 
contain accounting information, the instal- 
lation accounting routines decide how the 
specified accounting information is used 
for the jok step. 


Setting Job Step Time Limits (TIME) 


(Used by Priority Schedulers Only) 


To limit the computing time used by a 
Single job step or cataloged procedure 
step, a maximum time for its completion can 
be assigned. Such an assignment is useful 
in a multiprogramming environment where 
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more than one job has access to the comput-— 
ing system. 


The time is coded in minutes and sec- 
onds. The number of minutes cannot exceed 
1439. The number of seconds cannot exceed 
59. If the job step is not completed in 
this time, the entire job is terminated. 
(If the job step execution time is expected 
to exceed 1439 minutes (24 hours) TIME=1440 
can be coded to eliminate job step timing.) 
If the TIME parameter is omitted, the 
default job step time limit (as established 
in the cataloged procedure for the input 
reader) is assumed. 


TIME 
assigns a time limit for a job step or 


for an entire cataloged procedure. 
For a cataloged procedure, this param- 


eter overrides all TIME parameters 
that may have been specified in the 
procedure. 


TIME.procstep 
asSigns a time limit for a single step 
of a cataloged procedure. This param- 
eter overrides, for the named step, 
any TIME parameter which is present. 
AS many parameters of this form as 
there are steps in the cataloged pro- 
cedure being executed can be written. 


Specifying Main Storage Requirements for a 
Job Step (REGION) 


(Used by Priority Schedulers Only) 


The REGION parameter may be specified in 


the JOB statement, in which case it over- 
rides the REGION parameters specified in 
the EXEC statements and applies to all 


steps of the 
desired to 
much storage aS it 


job. However, if it is 
allot to each job step only as 
requires, the REGION 
parameter should be omitted from the JOB 
statement, and the EXEC statements’ should 
contain a REGION parameter specifying the 
amount of main storage to be allocated to 
the associated job step. If the REGION 
parameter iS omitted from both JOB and EXEC 
statements, the default region size (as 
established in the cataloged procedure for 
the input reader) is assumed. The size is 
specified in the form "nnnnnk" where 
“nnnnn”™ is the number of 1024-byte areas to 
be allocated to the job step; C.ge, 
REGION=50K. 


REGION 
specifies a region size for the job 
step or for the entire cataloged pro- 
cedure. For a cataloged procedure, 
this parameter overrides all REGION 
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parameters that may have been speci- 
fied in the procedure. 


REGION. procstep 
specifies a region size for a single 
step of a cataloged procedure. This 


parameter overrides the REGION param- 
eter in the named cataloged procedure 
step, if one is present. AS many 
parameters of this form as there are 
steps in the cataloged procedure being 
executed can be written. 


For a discussion of the region. size 
required for FORTRAN jobs, see "Specifying 
Main Storage Requirements for a Job 
(REGION) ." 


DATA DEFINITION (DD) STATEMENT 


The DD statement (Figure 10) describes 
data sets. The DD statement can contain 
the following information: 


1. Name of the DD statement. 


2. Name of the data set to be processed. 

3. Type and number of I/O devices for the 
data set. 

data set 


4. Volume(s) on which the 


resides. 


5. Amount and type of space allocated on 
a direct access volume. 


6. Label information for the data set. 


7. The status of the data set before 
execution of the step and the disposi- 
tion of the data set after execution 
of the step. 

8. Allocation of data sets to facilitate 

channel optimization. 


NAME FIELD 
ddname 
is used: 
1. To identify data sets defined by 


this DD statement to the compiler 
or linkage editor. 


2. To relate data sets defined by 
this DD statement to data set 
reference numbers used by the 


programmer in his program. 


3. To identify this DD statement to 
- other control statements in the 
input stream. | 
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ee ee Co eet aa ai a aa a a a aa a aa a 1 
| Name | Operation] Operand* | 
}---------------------- +--------- }------------------------------------------------------ { 
| | | 
| | {Positional Parameter | 
| | | 
| 77 ( ddname 2| DD \[* “ | 
| procstep. ddname | |) Baza | 
| JOBLIB?3 | }| DUMMY [ 
| STEPLIB | | | 
| SYSABEND | | | 
| SYSUDUMP | | Keyword Parameters® | 
| | | | 
| i | DDNAME=ddname | 
| | | | 
| | | ‘dsname | 
| | | dsname (element) | 
| | | *.ddname | 
| | }] | DSNAME= ( *.stepname. ddname | 
| | *.stepname. procstep. ddname | 
| | | éname | 
| [ } &name (element) | 
| | | 
| | j] (UNIT=(subparameter-list) ] | 
| | | | 
| | | (DCB=(subparameter-list) ] | 
| | | 
| | he oieie=eubseameacide es | 
| | ip teceareeeer Le | 
| | | | SPLIT=(subparameter-list) | 
| i { LSUBALLOC= (subparameter-list) | 
| | | 
| | | (LABEL= (subparameter-list) ] | 
| | | 
| | || OISP= (subparameter-list) | 
j | || SYSOUT=A | 
| | ]| SYSOUT=B | 
] | | LSYSOUT=(x[, program-name] [,form-no.])©° 7 | 
| 
] | | (SEP=(subparameter-list) ] | 
beSeee ee See eee i ener ee eee 5 eae ea a nee te a rel a Oe NN en ee Re A Fe eg ea ae ae ere eee 4 
}*To allow a programmer flexibility in the use of the DD statement, all parameters are | 
{| Optional; however, a DD statement with a blank operand field is invalid. | 
{2The name field must be blank when concatenating data sets. | 
}*The JOBLIB statement precedes any EXEC statements in the job. See the discussion | 
} concerning JOBLIB under “Name Field" in this section. | 
}*If either DATA or * is specified, keyword parameters cannot be specified. | 
{SIf “subparameter-list" consists of only one subparameter and no leading comma | 
] Cindicating the omission of a positional subparameter) is required, the delimiting | 
} parentheses may be omitted. | 
{°This form of the parameter is used only with priority schedulers. | 
]7I£ program-name and form-no. are omitted, the delimiting parentheses can be omitted. | 
Oa a Na ee ee ae ee eee toe J 


e Figure 10. Data Definition (DD) Statement 


Job Control Language 25 


Form C28-6603-2 

Page Revised 11/15/68 by TNL N28-0586 
The "ddname" format is "Job 

Processing." 


given in 


procstep. ddname 
is used to override DD statements in 
cataloged procedures. The step in the 
cataloged procedure is identified by 
“procstep." The “ddname" identifies 
either: 


1. A DD statement in the cataloged 


procedure that is to be modified 
by the DD statement in the input 
stream, or 

2. A DD statement that is to be 


added to the DD statements in the 
procedure step. 


JOBLIB and STEPLIB 

are used to concatenate a private 
library with the system library, 

SYS1.LINKLIB; that is, the operating 
system library and the data sets spe- 
cified in the JOBLIB or STEPLIB DD 
Statement are temporarily combined to 
form one library. Use of JOBLIB 
results in concatenation for the dura- 


tion of a job; use of STEPLIB, for the 
duration of a job step. 
The JOBLIB DD statement must appear 


immediately after the JOB statement of the 
job to which it pertains; its operand field 
must contain at least the DSNAME and DISP 
parameters. The DISP parameter must _ be 
coded either DISP=(NEW, PASS) or DISP=(OLD, 
PASS) or DISP=(SHR,PASS) so that the 
library remains available throughout the 
job. (See the discussion of the DISP 
parameter under "Operand Field.") 


The STEPLIB DD statement may appear in 
any position among the DD statements for 
the step. The data set defined should be 
OLD. If the private library is not cata- 


loged and is to be referred to ina later 
step (or steps), DISP=(OLD,PASS) or DISP= 
(SHR,PASS) should be coded. A later step 


may then refer to it by coding DSNAME=*, 
stepname.STEPLIB, DISP=(OLD,PASS) on _ the 
STEPLIB DD statement for the later step. 


For a complete discussion of JOBLIB and 
STEPLIB DD statements, see the Job Control 
Language publication. 


Note: Data sets with records of different 
formats, or data sets that reside on dif- 
ferent types of devices, should not be 
concatenated. 
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SYSABEND and SYSUDUMP 
are special DD names used to define a 
data set on which a system abnormal 
termination dump can be written. The 
dump is provided for job steps subject 
to abnormal termination. 


The dump provided when the SYSABEND DD 
statement is used includes the system 
nucleus, the problem program storage 
area, and a trace table, if the trace 
table option was requested at system 
generation. The SYSUDUMP DD statement 
provides a dump of only the problem 
program areas. 


A complete discussion of SYSABEND and 
SYSUDUMP DD statements, including an 
example of use, appears in the Job 


Control Language publication. 


OPERAND FIELD 


For purposes of discussion, 
for the 
classes. 


parameters 
DD statement are divided into six 
Parameters are used to: 


e Specify unit record data sets. 


e Retrieve a previously created and cata- 
loged data set. 


e Retrieve a data set created in a pre- 
vious job step in the current job and 
passed to the current job step. 


e Retrieve a data set created but not 
cataloged in a previous job. 


e Create data sets that are to reside on 
magnetic tape or direct access volumes. 


e Optimize I/O operations. 


The following text describes the DD 
Statement parameters that apply to proces- 
Sing unit record data sets and retrieving 
data sets created in previous job steps, or 
data sets created and cataloged in previous 
jobs (see Figure 11). The method of retri- 
eving uncataloged data sets created in 
previous jobs is also discussed in this 
section. Parameters shown in Figure 10 and 
not mentioned in this section are used to 
create data sets, retrieve uncataloged data 
sets, and optimize I/O operations in job 
steps. These parameters are discussed in 
the sections "Creating Data Sets" and "Pro- 
gramming Considerations." 
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dsname 

dsname(element) 

*, ddname 

DSNAME=( *, stepname. ddname 
*,stepname. procstep. ddname 
&name 

Ename (element) 


UNIT=(namel, {n|P}2])3 
(eRrep=0 
PRISE=1 


PRTSP=2 
PRTSP=3 ) 


MODE=E| {, STACK=1 
MODE=Cf |, STACK=2 


subparameter-list* 
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| DCB= ( 
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| 

] LABEL=(subparameter-list) % 
| 


SYSOUT=A 

SYSOUT=B 

SYSOUT=(x[, program-name]{,form-no.])5 6 
L 
V 


OLUME= (subparameter-list)% 


J+If either of these two parameters is] 
} selected, it must be the only parameter| 
| selected. 

{2If neither "n" nor "P" is specified, 1] 
} is assumed. | 
}7If only "“name“ is specified, the deli-] 
| miting parentheses may be omitted. i 
| 
{ 
| 


“See the section “Creating Data Sets." 


SThis form of the parameter is used only] 
with MVT priority schedulers. ] 
STf program-name and form-no. are] 
omitted, the delimiting parentheses’ can| 


be omitted. 

assumption for the second subpara-] 
| meter is discussed in "Specifying the] 
| Disposition of a Data Set" in this| 
} section. | 
}®The subparameters are positional. | 


Figure 11. DD Statement Parameters 


Unit Record Parameters 


The UNIT, DCB, and SYSOUT parameters are 
used for unit record data sets; the * or 
DATA parameters designate that the data set 
for this job step follows in the input 
stream. Examples of DD statements for unit 
record data sets are shown in Figure 12. 


Specifying Data_in the Input Stream: 


* 
indicates that a data set immediately 
follows this DD statement in the input 
stream. This parameter is used to 
specify a source module deck, object 
module deck, or data in the input 
stream. If the EXEC statement for the 
job step invokes a cataloged proce- 
dure, a data set may be placed in the 
input stream for each procedure step. 
If the EXEC statement in the input 
Stream specifies execution of a pro- 
gram, only one data set may be placed 
in the input stream. The DD * state- 
ment must be the last DD statement for 
the procedure step or program. The 
end of the data set must be indicated 
by a delimiter statement. The data 
cannot contain // in the first two 
characters of the record. 


DATA 
also indicates data in the input 
stream. The restrictions and use of 
the DATA parameter are the same as the 
*, except that // may appear in the 
first and second positions in the 
record. 


UNIT=(name[, {in| P}]) 
specifies an address of an I/O device, 
a type of I/O device, or class of I/O 
devices, and the number of I/O devices 
assigned to a data _ set. When the 
system is generated, the "“name" is 
assigned by the operating system or 
the installation. (See the section 
"System Generation Macro-Instructions" 
in the publication System Generation. ) 


The programmer can use only the 
assigned names in his DD statements. 
For example, 

UNIT=190, UNIT=2311, UNIT=TAPE 


where 190 is a device address, 2311 is 
a device type, and TAPE is a device 
class. 


{n]P} 

specifies the number of devices allo- 
cated to the data set. If a number 
"n" is specified, the operating system 
assigns that number of devices to the 
data set. Parallel, "P", is used with 
cataloged data sets. The control pro- 
gram assigns as many devices as there 
are volumes indicated in the index and 
the label field of the cataloged data 
set. 
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Sample Coding Form | 
| i-io CT tt-20— | i304 dT i-50——CT SC Si-e0_ ST SCI-7o_—ss| = SS 7i-80_—id 
| [2731415[6[718]9/o] 1 [2[31415[6[7[s]9iol | [2131415 ]617 [s{slol | [2[3]4 15167 [si[9loli 12131415 /6[7 [s[9lol | [2131415167 [8[9/o} i 12]3]4]5]6]7/8} 9/0} | J2}3/4/5/6{7 1819/0} 









an ae 4, Card, Ainoch. 
/1SYSPUNCH DD UNIT=SYSCP»DCB=STACK=2 


Ss, 
Example 35:. Card Keadefl 


|//SYSIN DD, ¥ 






Figure 12. Examples of Unit Record DD Statements 


DCB Parameter: 


DCB parameter has any meaning when 
SYSOUT=A is used. With systems pro- 
viding multiprogramming with a fixed 
number of tasks, the processing pro- 
gram that writes the data must be in 
the lowest priority partition. 


DCB=PRTSP={0]1] 2] 3} 
specifies line spacing for the print- 
er. The digits 0, 1, 2, and 3 specify 
no space, Single space, double _ space, 
and triple space, respectively. The 
carriage control character in a 
FORTRAN record causes spacing before 


the line is printed. The PRTSP para- SYSOUT=B 

meter causes spacing after the line is can be used with sequential schedulers 
printed. A default value of 0 applies to indicate the system card punch 
only to a FORTRAN program. unit. The priority scheduler will 


| route the output to class B. 
{UODE=E} ‘ STACK=1} 
DCB=( \MODE=C) |, STACK=2)) 
specify options for the card-read- SYSOUT= (x[, program-name] [, form-no. ]) 
punch. The MODE subparameter indi- is used with priority schedulers. 
cates whether the card is transmitted When priority schedulers are used, the 
in column binary or EBCDIC mode; C data set is normally written on an 
specifies column binary, and E- speci- intermediate direct access device dur- 


fies EBCDIC. 
The STACK subparameter indicates 


Stacker selection for the card 
read punch. 


Through the use of the SYSOUT parameter, 


ing program execution and later routed 
through an output stream to a system 
output device. The character "x" can 
be alphabetic or numeric, specifying 
the system output class. Output writ- 
ers route data from the output classes 
to system output devices. The DD 
statement for this data set can aiso 
include a unit specification describ- 
ing the intermediate direct access 
device and an estimate of the space 
required. If these parameters are 
omitted, the job scheduler provides 


output data sets can be routed to a system 
output stream and handled in much the’ same 
way as system messages 


default values as the job is read and 
processed. 


If there is a special installation 


SYSOUT=A program to handle output operations, 
can be used with sequential schedulers its “program-name"™ should be speci- 
to indicate that the data set is to be fied. “Program-name" is the member 


written on the system printer output 
device No parameter other than the 


name of the program, which must reside 
in the system library 
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If the output data set is 

printed or punched on a specific 
of output form, 
should be specified. 


message issued at the time 
set is to be printed, 
be used. 


the 


Ame ERY Me ates ee rata Near wom mR a ONES 


If a data set on a magnetic tape or a 
direct access volume is created with stan- 
dard labels and cataloged in a previous job 
Or job step, all information for the data 
set such as device, volume, space, etc., is 
stored in the catalog and labels. This 
information need not be repeated in other 
DD statements. To retrieve the data set, 
the name (DSNAME) and disposition (DISP) of 
the data set must be specified. 


If the data set was created in a pre- 
vious job step in the current job and its 
disposition was specified as PASS, all of 
the information in the previous DD state- 
ment is available to the control program, 
and is accessible by referring to the 
previous DD statement by name. To retrieve 
the data set, a pointer to a data set 
created in a previous job step is specified 
by the DSNAME parameter. The disposition 
(DISP) of the data set is also specified; 
if more than one unit is to be allocated, 
the UNIT parameter must be specified too. 


If the data set was created with stan- 
dard labels in a previous job but not 
cataloged, information concerning the data 
set, such as space, record format, etc., is 
stored in the labels. The volume and 
device information is not’ stored. TO 
retrieve the data set, the name (DSNAME), 
if the data set is named, disposition 
(DISP), volume (VOLUME), and device (UNIT) 
must be specified. 


to be 

type 
a 4-digit "“form-no." 
This form number 
is used to instruct the operator, in a 
data 
of the form to 


labels 
LABEL and DCB parameters must be specified. 


parameter indicates the name of a data 
or refers to a 
current Or a previous job step. 


If a data set created without standard 


in a previous job is retrieved, the 


The VOLUME, LABEL, and DCB parameters are 
discussed in the section "Creating Data 
Sets." 


Examples of the use of DD statements’ to 
retrieve previously created data sets are 
shown in Figure 13. 


The DSNAME 
set 
set defined in the 


data 


Specifying a Cataloged Data Set by Name: 


DSNAME=dsname 


the fully qualified name of the data 


set is indicated by “dsname." If the 
data set was previously created and 
cataloged, the control program uses 
the “dsname" to search the catalog, 
find the data set, and instruct the 
operator to mount the required 
volumes. 


LE TTT AAS A IT OAS ARS ATL CED AAU PRIS NAS ROD SORT SLE IR SEED. TEES ESP S ETE SD 


DSNAME=dsname (element) 

indicates either a generation data set 
in a generation data group, or a 
member of a partitioned data set. fMThe 
name of the generation data group or 
partitioned data set is indicated by 
"dsname"; if “element" is either 0 or 
a Signed integer, a generation data 
set is indicated. For example, 


DSNAME=FIRING (-2) 


indicates the third most recent member 
of the generation data group FIRING. 
If “element™ is a name, a member of a 
partitioned data set is indicated. 


Sample Coding Form 


| I-10 11-20 21-30 31-40 41-50 51—60 | 61-70 71-80 
1 [2[3]415|6[7 [8 [90/1 [2[3[4[516]7 [8[9]ol | [2[3 [415 16[7 18 [9/ol | [2/3/4156] 7 [slg loli [21314156]? [s[9o} | 12]3]415]6]7/8]9[o] | 12/314]5/6[7]8/9iol [2|3/415/6|718/9}0} 


amp. € 2 Ke e VIG. |0 oged Le 


{' @icig 


//FTG9FOO1, DD DSNAME=MATHsDISP=(OLD»PASS) 


Figure 13. 


L.| 


AEX O| 





Retrieving Previously Created Data Sets 
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Before any generation data set can be 
specified in the DSNAME parameter, the 
name for the generation data group 
must be inserted in the catalog index. 
The name of the generation data group 
is inserted by use of a utility pro- 
gram described in the section "“Modify- 
ing System Control Data" in the Utili- 
ties publication. 


Note: Members of a partitioned data 
set may be read as input to a FORTRAN 
object program or created as output 
from a FORTRAN object program, but 
only when the member name and either 
LABEL=(,,, IN). or LABEL=(,,,OUT) is 
specified in the associated DD 
statement. 


Referring to a Data Set in the Current Job 
step: 


DSNAME=*,. ddname 


indicates a data set that is defined 


previously in a DD statement in this 
job step. The * indicates the current 
job. The name of the data set is 


copied from the DSNAME parameter in 
the DD statement named “ddname." 


Referring to a Data Set ina 
step: 


DSNAME=*,. stepname. ddname 

indicates a data set defined in a DD 
Statement in a previous job step in 
this job. The * indicates the current 
job, and "“stepname” is the name of a 
previous job step. The name of the 
data set is copied from the DSNAME 
parameter in the DD statement named 
"“ddname." For example, in the follow- 
ing control statements, the DD state- 
ment FTO8F001 in job step S2 indicates 
that the data set name (TIME) is 
copied from the DD statement FTO7F001 
in job step Si. 


Previous Job 


//UAUNCH JOB 

//JOBLIB DD DSNAME=FIRING, DISP=(OLD, PASS) 
//80 EXEC PGM=ROCKET 

//¥T05F001 DD DSNAME=RATES (+1), DISP=OLD 
//¥TO7F001 DD DSNAME=TIME, DISP={OLD, PASS) 
//82 EXEC PGM=DISTANCE | 

//FT08F001 DD DSNAME=*..FTO7F001, DISP=OLD 
//¥FT01F001 DD # 


cD EEE Rete SER CE OE EY Ah CE ED SORES ES DET ES OS el EAT END SS AOD UEP SAN AES CRE OI 


CONES REECE CRE Ce cmH 


DSNAME=*.stepname. procstep. ddname 
indicates a data set defined 
cataloged procedure invoked by a _ pre- 
vious job step in this job. The * 
indicates the current job; "stepname" 


ina 
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is the name of a previous job step; 
“procstep" is the name of a step in 
the cataloged procedure; and “ddname" 
is the name of the DD statement defin- 
ing the data set. 


Assigning Names to Temporary Data Sets: 


DSNAME=é&name 
asSigns a name to a temporary data 
set. The control program assigns the 
data set a unique name which exists 
Only until the end of the current job. 


The data set may be accessed in fol- 
lowing job steps by éname. This 
option is useful in passing an object 


module from a compiler job step to a 
linkage editor job step. 


DSNAME= &name (element) 

assigns a name to a member of a 
temporary PDS. The name is assigned 
in the same manner as _ the DSNAME= 
$name. This option is useful in stor- 
ing object modules that will be link 
edited in a later job step in the 
current job. 


SPECIFYING THE DISPOSITION OF A DATA _ SET: 
The DISP parameter is specified for both 
previously created data sets and data sets 
being created in this job step. 


|, DELETE , DELETE 
NEW) , KEEP , KEEP 
seers , PASS , CATLG ) 
[eee , CATLG , UNCATLG 
SHR) |, UNCATLG 
is used for all data sets residing on 


magnetic tape or direct access volumes. 


The first subparameter indicates when 


the data set was created. 


NEW 
indicates that the data set is created 
in this step. 


OLD 
indicates that the data set was 
created by a previous job or job step. 


MOD 

indicates that the data set was 
created in a previous job or job step, 
and records are to _ be added to the 
data set. Before the first I/O opera- 
tion for the data set occurs, the data 
set is positioned following the last 
record. If a data set specified as 
MOD does not exist, the specification 
is assumed to be NEW 


SHR 
indicates that the data set resides on 
a direct-access volume and is used as 
input to a job whose operations do not 
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prevent simultaneous use of the data 
set as input to another job. This 
parameter has meaning only in a multi- 
programming environment for existing 
data sets. If it is omitted ina 
multiprogramming environment, the data 
set is considered unusable by any 
other concurrently operating job. If 
it is coded in other than a multipro- 
gramming environment, the system 
assumes that the disposition of the 
data set is OLD. 


indicates the 
normal job 


The second subparameter 
disposition of the data set at 
step termination. 


DELETE 
causes the space occupied by the data 
set to be released and made available 
at the end of the current job step. 
If the data set was cataloged, it is 
removed from the catalog. 


KEEP 
ensures that the data set is kept 
intact until a DELETE option is speci- 
fied in a subsequent job or job step. 
KEEP is used to retain uncataloged 
data sets for processing in future 
jobs. KEEP does not imply PASS. 


PASS 
indicates that the data set is 
referred to ina later job step. When 
a subsequent reference to the data set 
is made, its PASS status lapses unless 
another PASS is issued. The final 
disposition of the data set should be 
stated in the last job step that uses 
the data set. When a data set is in 
PASS status, the operating system 
attempts to keep the volume(s) for the 
data set mounted. If dismounting is 
necessary, the control program issues 
a message to mount the volume(s) when 
needed. PASS is used to pass data 
sets among job steps in the same job. 


When a data set is concatenated with 
the system library through use of the 
JOBLIB DD statement, PASS assumes a 
different meaning. Without PASS in 
the JOBLIB statement, the concatena- 
tion is only in effect for the first 
job step. If PASS is specified, the 
concatenation is in effect for the 
entire job. 


CATLG 
causes the creation of a catalog entry 
that points to the data set. The data 
set can then be referred to in subse- 
quent jobs or job steps by name (CATLG 
implies KEEP). 


UNCATLG 
causes the data set to be removed from 


the catalog at the end of the job 
Step. UNCATLG does not imply DELETE. 


If the second subparameter is not speci- 
fied, no action is taken to alter the 
Status of the data set. If the data set 
was created in this job (NEW), it is 
deleted at the end of the current job step. 
If the data set existed before this job 
(MOD or OLD), it exists after the end of 
the job. 


The third subparameter indicates’ the 
disposition of the data set if the job step 


terminates abnormally. This is the condi- 
tional disposition of the data set. 
Explanations for DELETE, KEEP, CATLG, and 
UNCATLG are the same as those for normal 
termination. 

Notes: 

e If a conditional disposition is not 
specified and the job step abnormally 
terminates, the requested disposition 
(the second subparameter of the DISP 
keyword) is performed. 

e Data sets that were passed, but not 


received by subsequent steps because of 
abnormal termination, will assume _ the 
conditional disposition specified the 
last time they were passed. If a 
conditional disposition was not speci- 
fied then, all data sets that were new 
when initially passed are deleted. All 
other data sets are kept. 


e A conditional disposition other than 
DELETE for a temporary data set is 
invalid, and the system assumes DELETE. 


Effect__of DISP Parameter_at_End of FORTRAN 
Job: In a FORTRAN job that is terminated 
by a STOP or CALL EXIT statement, all data 
sets that were used by the job will be 
closed. The closing operation will posi- 
tion the volume in accordance with the DISP 
parameter, as follows: 


Positioning Action 


PASS Forward space to 
end of data set 
DELETE Rewind 


KEEP, CATLG, UNCATLG Rewind and unload 


DELIMITER STATEMENT 


The delimiter statement (see Figure 14) 
is used to separate data from subsequent 
control statements in the input stream, and 
is placed after each data set in the input 
stream. 
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Figure 14. Delimiter Statement 


The delimiter statement contains a slash 
in column 1, an asterisk in column 2, anda 
blank in column 3. The remainder of the 
card may contain comments. 


COMMENT STATEMENT 


The comment statement (see Figure 14.1) 
is used to enter any information considered 


helpful by the programmer. It can be 
inserted before or after any control state- 
ment. Comments can be coded in columns 4 
through 80. The comments cannot be con- 
tinued onto another statement. (If the 


comment statement appears on a system out- 
put listing, it can be identified by the 
appearance of *** in columns 1 through 3.) 
Caan Gee artery iis ree ame ne eee ee 1 
{Name | | 
----- $---~----------------------------- =f 
\77* | | 
See enmeee i 2 ee ei ae ee ee es es J 


Figure 14.1. Comment Statement 

The comment statement contains ae slash 
in column 1, a slash in column 2, and an 
asterisk in column 3. The remainder of the 
card can contain comments. 
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JOB PROCESSING 


To execute a FORTRAN program, three 
steps are required -- compiling, link edit- 
ing, and executing. Using cataloged proce- 
dures to make these steps easier is dis- 
cussed in this section. 


For each of the three steps involved in 
processing, ddnames and device names are 
specified by the operating system. These 
ddnames, options for the compiler and link- 
age editor, batched compilation, and speci- 
fying additional libraries for the linkage 
editor are discussed in this section. 


USING CATALOGED PROCEDURES 


Because writing job control statements 
can become time-consuming, IBM supplies 
four cataloged procedures to aid in the 
compiling, link editing, and executing of 
FORTRAN E programs. Each procedure 
requires a 


//procstep.SYSIN DD 


statement indicating the location of a 
source module or object module to the 
control program. In addition, a DD state- 


ment GO.SYSIN can be used to define data in 
the input stream for a procedure step that 
executes a load module. The job control 
statements needed to invoke the procedures, 
and deck structures used with the proce- 
dures are described in the following text. 


Compile 


The name of the cataloged procedure for 
compilation is FORTEC. It is invoked by 
the name FORTEC as the first parameter in 
an EXEC statement. 


(The cataloged procedure, FORTEC, con- 
sists of the control statements shown in 
Figure 48 in “Cataloged Procedures.") 


With the procedure FORTFC, a DD _ state- 
ment FORT.SYSIN indicating the location of 
the source module must be supplied. 
Figure 15 shows control statements that can 
be used to invoke the procedure. 
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4/jobname JOB 
// EXEC FORTEC 
//FORT.SYSIN DD * 


a a ee ee 1 
| FORTRAN Source Module { 
a ee J 
/* 

Figure 15. Invoking the Cataloged Proce- 


dure FORTEC 


Single Compile: A sample deck structure to 
compile a single source module is shown in 
Figure 16. 


7/SOBSC JOB 00,JIMJONES, MSGLEVEL=1 
//®XECC EXEC PROC=FORTEC 
7/¥FORT.SYSIN DD * 


a aa a A cl 1 
{ FORTRAN Source Module } 
ea ee arate Se Ee Ee ene sad SOR OR ee tO Nea ee J 
/* 

Figure 16. Compiling a Single Source 


Module 


The SYSIN data set containing the source 
module is defined as data in the input 
stream for the compiler. Note that a 
delimiter statement follows the last state- 
ment in the source module. 


Batched Compile: A sample deck structure 
to batch compile is shown in Figure 17. 


//SJOBBC JOB 00,JOHNDOE,MSGLEVEL=1 
//EXECC EXEC PROC=FORTEC 
//FORT.SYSIN DD * 


Cs ge ee ee ee eee ee ae eee 1 
| First FORTRAN Source Module | 
Naps epee ae ee ey evs TE SP nee cee Hey UE Re J 
a ee ee ee ee 1 
| Last FORTRAN Source Module | 
En aca ee Se a et ae RL ae an fee chery eee a ed Se tia Pwr san SLED me J 
/* 

Figure 17. Compiling Several Source 

Modules 


If several source modules are entered in 
the SYSIN data set for one job step, the 
compiler recognizes the FORTRAN END state-. 
ment. If the next card is a delimiter 


statement, control returns to the control 


program at the end of the compilation. If 
the next card iS a FORTRAN statement, 
control remains with the FORTRAN compiler. 


Compile and Link Edit 


The cataloged procedure to compile a 
FORTRAN source module and tIlink edit the 
resulting object module is named FORTECL. 
It is invoked by the name FORTECL as the 
first parameter in an EXEC statement. 


(The cataloged procedure FORTECL con- 
Sists of the job control statements shown 
in Figure 49 in “Cataloged Procedures". ) 


With the procedure FORTFCL, a DD state- 
ment FORT.SYSIN must be supplied to indi- 
cate the location of the source module. 
This cataloged procedure writes the result- 
ing load module in the FORTRAN library 
(SYS1.FORTLIB); however, an overriding DD 
statement 


//ULKED.SYSLMOD DD DSNAME=SYS1.FORTLIB (name) 


can be supplied to name the resulting load 
module. Figure 18 shows control statements 
that can be used to invoke the procedure. 


//jobname JOB 
// EXEC FORTECL 
//¥FORT.SYSIN DD * 


Fe ee ow ee Ss ee ON a ed a ae ge ee eke 6 ee ge 7 
| FORTRAN Source Module | 
a a a ce aha ec a a rc a line aes eee ere B | 
/ * 


//UGKED.SYSLMOD DD DSNAME=SYS1.FORTLIB(name) 


Figure 18. Invoking the Cataloged Proce- 


dure FORTECL 


Again the source module is defined as 
data in the input stream. Note that the DD 
statement LKED.SYSLMOD must follow the 
delimiter statement for the source modules 
in the input stream. 


Batch Compile and Link Edit: A sample deck 
structure to batch compile several source 
modules and link edit the resulting object 
modules is shown in Figure 19. The result- 
ing load module is placed in the FORTRAN 
library and assigned the name CHEM. 


/7/JOBCLE JOB 012,'E .SMITH' 
// EXEC FORTECL 
//FORT.SYSIN DD * 


Cae ee ge re ee et ee 1 
| First FORTRAN Source Module | 
Si a ee a J 
MRIS ceo et ee ee ne ee ee ee 71 
| Last FORTRAN Source Module | 
I nO and UPR pe FPN a en EPA FagPP NE Sere NLS eee PEE ey ce OTIC NE Oe OUR J 
/ * 


//UKED.SYSLMOD DD DSNAME=SYS1.FORTLIB (CHEM) 
Figure 19. Compiling and Link Editing Sev- 
eral Source Modules 


Single Compile and Link Edit: A sample 
deck structure to compile and link edit a 
Single source module, placing it in the 
FORTRAN library, and assigning the result- 
ing module the name XYZ is shown in 
Figure 20. The source module is read from 
the cataloged sequential data set SOMOD. 





//COMPLED JOB 527,'JOHN BROWN' 

// EXEC FORTECL 

J/FORT.SYSIN DD DSNAME=SOMOD, DISP=OLD 

//UKED.SYSLMOD DD DSNAME=SYS1.FORTLIB(XYZ) 
Figure 20. Compiling and Link Fditing a 
Source Module Residing in a 
Cataloged Data Set 


Because the source modules reside in a 
cataloged data set, the delimiter statement 
is omitted. 


Link Edit and Execute 


The cataloged procedure to link edit 
FORTRAN object modules and execute the 
resulting load module is named FORTELG. It 
is invoked by the name FORTELG as the first 
parameter in an EXEC statement. 


(The cataloged procedure, FORTELG, con- 
Sists of the control statements shown in 
Figure 50 in "Cataloged Procedures"). 


With the procedure FORTELG, a DD state- 
ment LKED.SYSIN, which indicates the loca- 
tion of the object module, must be sup- 
plied. 


Three data sets are defined by DD state- 
ments in the cataloged procedure for use 
during execution of the load module. If 
the programmer intends to use these DD 
Statements, he can use data set reference 
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numbers 
ing way: 


one, two, and three in the follow- 


1 - the data set defined by the DD state- 
ment GO.SYSIN (used primarily to read 
data from the input stream) 


2 - card output 
3 - printed output 


Any of the DD statements for these data 
set reference numbers may ke overridden, as 
Shown in "Cataloged’ Procedures". 


Figure 21 shows control statements that 
can be used to invoke the FORTELG cataloged 
procedure. 


//jobname JOB 
// EXEC FORTELG 
//GKED.~SYSIN DD * 


aa acl gg ala as aa aan a a an 1 
| FORTRAN Object Module | 
Apa eg eae a a A ceo TN Pe RO PD see a Se J 
/* 

Figure 21. Invoking the Cataloged Proce- 


dure FORTELG 


Link Edit: A sample deck structure to link 
edit and execute as one load module several 
object modules entered in the input stream 
is shown in Figure 22. 


//JOBBLG JOB 00,TOMSMITH , MSGLEVEL=1 
//EXECLG EXEC PROC=FORTELG 
//7UGKED.SYSIN DD * 


ame ae ea a a ia 1 
| First FORTRAN Object Module | 
Ui i a ae a ae J 
(root nn--------- Fe a aia Re CO a a 7 
| Last FORTRAN Object Module | 
peg en eR oer ere AOA cee eer 2 gent eee eee) J 
/* 
Figure 22. Link Edit and Fxecute 

The object module decks were created by 
the DECK compiler option. The linkage 


editor recognizes the end of one module and 


the beginning of another and resolves” ref- 
erences between them. 

A sample deck structure is shown in 
Figure 23 for object modules that are 
members of the cataloged sequential data 
set, OBJMODS, that resides on a tape vol- 
ume. In addition a data set in the input 


stream is processed ref- 


erence number 1. 


using data set 
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//JOBBLG JOB 00, EDJONES, MSGLEVEL=1 
7/EXECLG EXEC FORTELG 

7/UKED.SYSIN DD DSNAME=OBJMODS, DISP=OLD 
7/GO.SYSIN DD * 


Ce ee a ge eg ee Be ee ean |e Peed 7 
| Data | 
ea ak a al ses eae aes ee a eee ar a ee a ea J 
/* 


Figure 23. Link Edit and Execute (Object 
Modules in a Cataloged Data 
Set) 


Compile, Link Edit, and Execute 


The fourth cataloged procedure, 
FORTECLG, passeS a source module through 
three procedure steps - compile, link edit, 
and execute. The cataloged procedure is 
invoked by the name FORTECLG as the first 
parameter in an EXEC statement. 


(The cataloged procedure, FORTECLG con- 
Sists of the control statements shown in 
Figure 51 in “Cataloged Procedures.") 


The SYSIN data set (source module) must 
be defined to the compiler. Figure 24 
shows statements that can be used to invoke 
the procedure FORTECLG. 


//jobname JOB 
4/ EXEC PROC=FORTECLG 
“4/FORT.SYSIN DD * 


Gy ee ee re a ee re Te ee 1 
| FORTRAN Source Module | 
a gr a es ee J 
/* 

Figure 24. Invoking the Cataloged Proce- 


dure FORTECLG 


Single Compile, Link Edit, and Execute: 


Figure 25 shows a sample deck structure to 
compile, link edit, and execute a single 
source module. 

//SOBSCLG JOB 00, TJONES, MSGLEVEL=1 

//EXECC EXEC FORTECLG . 

//FORT.SYSIN DD * 

(eg eee a eee eg ee 1 
| FORTRAN Source Module | 
pe ee J 
/* 

Figure 25. Single Compile, Link Edit, and 


Execute 


Batched Compile, Link Edit, and Execute: 
Figure 26 shows a sample deck structure to 


batch compile, link edit, and execute. The 
source modules are placed in the input 
stream along with a data set that is read 
uSing data set reference number 1 in the 
load module. 


//JOBBCLG JOB 00,JBOND, MSGLEVEL=1 
//EXECCLG EXEC FORTECLG 
//¥FORT.SYSIN DD * 


Je eee ae ee eee ee ge Pee Ee ee 1 
| First FORTRAN Source Module | 
eh so ee ee J 
rr pe ee ee eee 1 
| Last FORTRAN Source Module | 
Oa ei ee J 
/* 
//GO.SYSIN DD * 
Fgh ae arp ae ge es ee ie ee es ee en 1 
| Data 
eae a PR or Rn AOD Cer at a ae Pa ee eo J 
/* 
Figure 26. Batched Compile, Link Edit, and 


Execute 


STORAGE LOCATIONS AND BYTES 


Storage locations in System/360 are 
called bytes, words, and double-words. One 
word is four bytes long; a double-word is 
eight bytes long. 


When data is transmitted to main storage 
by I/O operations under control of FORMAT 
Statements, one character indicated by the 
FORMAT statement is contained in one byte. 


When data is read into main storage, it 
is translated into internal format. A real 
constant or variable, or an integer con- 
stant or variable occupies one word (four 


bytes). A double-precision constant or 
variable occupies a doukle-word (eight 
bytes). For I/O operations not under 


FORMAT control, variables and constants are 
read from and written on the volume in the 
internal format. 


COMPILER PROCESSING 


statements (ddnames) 
in the compiler to 
compiler. These 
the compiler. 


The names for DD 
relate I/O statements 
data sets used by the 
ddnames must be used _ for 


When the system is generated, names for I/O 
device classes are also established and 
must be used by the programmer. 


Compiler Name 


The program name for the compiler is 
IEJFAAAO. If the compiler is to be _ exe- 
cuted without using the supplied cataloged 
procedures in a job step, the EXEC state- 
ment parameter 


PGM=IEJFAAAO 


must be used. 


Compiler ddnames 


The compiler can use six data sets. To 
establish communication between the compil- 
er and the programmer, each data set is 
assigned a specific ddname. Each data set 
has a specific function and device require- 


ment. Table 2 lists the ddnames, func- 
tions, and device requirements for the data 
sets. 


To compile a FORTRAN source module, four 
of these data sets are necessary -- SYSIN, 
SYSPRINT, SYSUT1, and SYSUT2, along with 
the direct~-access volume(s) that contains 
the operating system. With these four data 
sets, only a listing is generated by the 
compiler. Two optional data sets are pro- 
vided for writing the object module: the 
SYSPUNCH data set is intended for punching 
the object module and the SYSLIN data set 
is intended for writing the object module 
on a magnetic tape or a direct access 
volume. 


For the DD statement SYSIN or SYSPRINT, 
an intermediate storage device may be spec- 
ified instead of the card reader or print- 
er. The intermediate storage device usual- 
ly is magnetic tape or a direct access 
device. 


If an intermediate device is specified 
for SYSIN, the compiler assumes that the 
source module deck was placed on intermedi- 
ate storage by a previous job or job step. 
If an intermediate device is specified for 
SYSPRINT, the map, listing, and 
error/warning messages are written on that 
device; a new job or job step can print the 
contents of the data _ set. When the 
SYSPRINT data set is written on an inter- 
mediate storage device, carriage control 
characters are placed in the records. 
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Table 2. Compiler ddnames 


can be used only if the PRFRM compiler 
option is specified. For a more detailed 
description of the SPACE/PRFRM option, see 


"Compiler Options” in this section. 


If the PRFRM compiler option is speci- 
fied in the EXEC statement, the FORTRAN 
compiler can read or write blocked records 
for SYSIN, SYSPUNCH, SYSPRINT, and SYSLIN. 
Blocked records are grouped before they are 
written on a volume; the entire group is 
then written together, instead of writing 
each record individually. (Blocking for 
SYSUT1 and SYSUT2 1s determined by the 


compiler; the programmer cannot specify 
blocking for these data sets.) Figure 27 
illustrates blocked records. 

| block block 
| record | record | | record | record | 
9G eee ene u Clement eseeaiye are oa! Gece ree eee Cees eee J 
Figure 27. 


Blocked Records 


Blocking saves space on the volume and 
increases the efficiency of the compiler 
because fewer I/O operations are performed. 
The programmer specifies whether records 
are blocked by the BLKSIZE subparameter in 
the DCB parameter of the DD statement (see 
"Creating Data Sets"). Records can be 
blocked only if they are 
written on a direct access or magnetic tape 
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read from or. 


fee ree a a a aR a a 5 a gs rt ee er a 1 
| ddname | Function | Device Requirements | Record Length | 
~---~---- }------------------------------------}---=----=--------------}+--------=--------4 
| SYSIN |Reading the source module Jcard reader, direct ac-| 80 | | 
| | jcess, Or magnetic tape | 
fot oe = Te Tener Oe ae oe q 
{SYSPRINT|Writing the storage map, listing, jprinter, direct access, | 121 | 
| |and messages jor magnetic tape | | 
~-------}------------------------------------}------+----------------- }-----------------4 
| SYSPUNCH| Punching the object module deck {card punch, direct ac- | 80 | 
| | jcess, Or magnetic tape | | 
}--------}-------------------------~---~--------}----------------------- }-------~--------- { 
|SYSLIN [Output data set for the object mod- |card punch, direct ac- | 80 | 
| Jule, used as input to linkage editor]cess, or magnetic tape | | 
~-------}---~----~--------------------------- f-----------=----------- }-----------------| 
|SYSUT1 |Work data sets used by the compiler |direct access or mag- |Determined by the| 
| [for compilation {netic tape {compiler during | 
-------- | {compilation. Not] 
| SYSUT | | |specified by the | 
| | | |programmer. | 
p-----~~~— 5 Eat a a a Ne ee oy ae on ae eee ee Ee le ey a ee pee ae ti Se ee 4 
|The maximum number of records per block for the SYSIN, SYSPRINT, and SYSPUNCH data | 
| sets is determined by device type (see Table 12). The maximum number of records per | 
| block for the SYSLIN data set is either 1, 5, or 40, depending on which linkage editor| 
| is used to read the data set. | 
Sa a er SaP kee NP EON oY SEA Mane NINN Oe ey Fo EEL PP Ne RIE EE eR ete Te ES ee NL EI a a a el eno J 
The following features of the compiler volume. The SYSLIN data set should ke 


blocked only if the object module is to be 
used aS input to either of the linkage 
editor programs ITEWLF440 or IEWLF880. 
Table 2 shows the record length and maximum 
number of records per block for each data 
set. 


If the SPACE compiler option is speci- 
fied, other data sets cannot be concatenat- 


ed with the SYSIN data set. If the PRFRM 
compiler option is specified, other data 
sets can be concatenated with the SYSIN 


data set. 


If the SPACE compiler option is speci- 
fied, the SYSPRINT, SYSPUNCH, and SYSLIN 
data sets must be sequential data sets; 


only the SYSIN data set can be read as a 
member of a PDS. However, if the PRFRM 
compiler option is specified, the SYSPRINT, 


SYSPUNCH, and SYSLIN data sets can be 
written as members of partitioned data 
sets. 


Compiler Device Classes 


Names for input/output device classes 
used for compilation are also specified by 
the operating system when the system is 
generated. The class names, functions, and 
types of devices are shown in Table 3. 


Table 3. Device Class Names 

[CLASS NAME | CLASS FUNCTIONS | DEVICE TYPE | 
Ee ARtY nee eRe ED GP ee ee Ee + a a ee ee ee ae ae ee ae ae eo ae ee ee + pane ara C= Ge Gn OF 4 en CR aera ee 
}SYSSQ jwriting, | magnetic tape] 
j | reading, [edirect access| 
| | backspacing | { 
| | (sequential) | | 
~---------4--------------- }--------------4 
|SYSDA jwriting, | edirect access | 
| |reading, | | 
| | backspacing, | { 
[updating | | 
| |records in | | 
| Jplace (direct) | | 
~--------- 4---------------4--------------4 
{SYSCP Jpunching cards |ecard punch { 
}----------}--------------- +~------------- : 
[A |SYSOUT output |eprinter | 
| | | emagnetic healaha 
beet ee eee ie eee, 


The data sets used by the compiler must 
be assigned to the device classes listed in 
Table 4. 


Table 4. Correspondence Between Compiler 
ddnames and Device Classes 
een et a fe ps onIVR yee eae ee eR ere ea EOS = 
| ddname [Possible Device Classes | 
| SYSIN |SYSSQ, the input stream device| 
i {(specified by DD * or DD DATA), | 
| Jor a device specified as the| 
q jcard reader | 
-------- }--------------------------------J 
| SYSPRINT|A, SYSSQ \ 
~------- 4--------------------------------4 
|] SYSPUNCH| SYSCP1, SYSSQ, SYSDA | 
pes eee ee oe eS 4 
{|SYSUT1 |SYSSOQ,SYSDA | 
SSS Pept pe nan i SERIO yn arte Svar cnet ee eer emcee og a | 
|SYSUT2 |SYSSQ,SYSDA j 
see Se ee eA a re eee A ah ae 4 
| SYSLIN Lahnstein deena | 
j+Both fe SYSPUNCH and SYSLIN data_ sets] 


| cannot be written on the SYSCP device| 
| class in the same job step. } 


Compiler Options 


Options (Figure 28) may be passed to the 
compiler through the PARM parameter in the 
EXEC statement. The following information 
may be specified: 


1 Amount Of main storage allocated to 
the compiler for this compilation 


2. Maximum length of a FORTRAN record 
written under FORMAT control. 


3. Name assigned to the program. 


4 Whether the source program is coded in 
Binary Coded Decimal (BCD) or Extended 
Binary Coded Decimal Interchange Code 
(EBCDIC). 


5. Whether a list of source statements is 
printed. 
6. Whether an object module is punched. 


7. #$Whether 
printed. 


a map of the object module is 


8. Whether the compiler writes the object 
module on an output data set that 
resides on a direct access or tape 
volume. 


9. Whether any additional main storage is 
used either to compile a larger source 
module or to increase the speed of 
compilation. 


10. Whether the source statements contain 
embedded blanks in variable names, 
Statement numbers, constants and re- 


served words, whether meaningful 
blanks are not inserted between names 
and reserved words, and whether 


FORTRAN keywords are used as variable 
names in the source program. 


There is no specified order for compiler 
options. 


Figure 28 shows the compiler options. 
For most options, a default for the option 
is underlined. If an alternative is not 
underlined, the default is indicated in the 
explanation of that option. The defaults 
indicated in this publication are the stan- 
dard defaults for FORTRAN(E). However, 
when the operating system is generated, the 
installation can change the defaults for 
compiler options. For more information 
about changing the defaults for compiler 
options, see the section "System Generation 
Macro-Instructions" in the System  Genera- 
tion publication. Before using any of the 
default options, the programmer should 
determine the defaults for his installa- 
tion. For purposes of illustration, this 
publication assumes that the defaults cho- 
sen by the installation are the standard 
defaults 
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. 
| (PARM . nnnnk 

| \PARM. procstepf = SIZE=| yYYYYVY 
| 


» SOURCE \ 
(, LINELNG=zzz] (, NAME=xxxxxx] ),EBCDIC , NOSOURCE 


| , DECK , MAP , LOAD SPACE) (, ADJUST 
»NODECKf ), NOMAP{ ), NOLOADS ), | 


, BCD 


'1,2,3 
PRFRM S ROADAUSE 


[|41£ the information specified contains blanks, parentheses, or equal signs, it must not| 
| be delimited by parentheses but by apostrophes. | 


}2If only one option is specified 


on one card. 


NE AAR RA ES EP A ES A ES ee ED A A OE an A A Pe eS a a a ee Ce ae ne al GRY ae ae ee eee Ce ee Ee ee ae Ee aS ees 


Figure 28. Compiler Options 


SIZE=yyyyyyy __or___SIZE=nnnnKk: The SIZE 
option indicates the amount of main storage 
available for the compilation. The pro- 
grammer specifies a number VYVVYVYV_ 
(yyyyyyy 2 15360) or nnnnkK (K=1024 and 
15<nnnn<9999). If the option is not speci- 
fied or the number specified is less than 
15,360 bytes, the compiler assumes 15,360. 
If the number specified is greater than the 
amount available, processing continues, 
provided the amount available is at least 
15,360 bytes when the SPACE option is 
specified, or at least 19,456 bytes when 
the PRFRM option is specified. This figure 


assumes no blocking. If the input is 
blocked (e.g.-, by an input reader), a 
figure that is 160 times the blocking 
factor in bytes must be added to the 
19, 456-byte specification in the SIZE 
option. (See “SPACE or PRFRM.") 

LINELNG=zzz: The LINELNG option indicates 
the maximum length of a FORTRAN record 
written under control of a FORMAT state- 


ment. The specified number zzz (0<zzz<256) 
represents the maximum length of a FORTRAN 
record. During compilation, the length of 
all records is calculated using the coded 
information in the FORMAT statement. If 
the record length exceeds zzz, a warning is 
issued by the compiler. If this option is 
not specified, zzz is assumed to be 132. 
For example, assume that 144 positions are 
specified in the LINELNG option and the 
following source statements are compiled: 


WRITE(7,10) POINT, ALPHA, I,J,K,L 


J 


10 FORMAT (2F30. 8, 4130) 


A warning is issued because the record 
length indicated by the FORMAT statement is 
180, and the LINELNG parameter indicates a 
maximum length of 144. 


NAME=xxxxxx: The NAME option specifies the 


name (xxxxxx) assigned to the module by the 
programmer, where xxxxxx consists of one to 
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and it does not contain any blanks, parentheses, or| 
| equal signs, the delimiting parentheses or apostrophes may be omitted. 

j?The maximum number of characters allowed between delimiting parentheses is 100. If 

} the option list is enclosed in apostrophes, however, the PARM parameter must be coded 
| 

L 


hee qunmee ques comms au 


Six alphameric characters, the first of 
which is alphabetic. If NAME is not speci- 
fied, the compiler assumes either the name 
MAIN for a main program or the name of the 
subprogram specified in the SUBROUTINE or 
FUNCTION statement for subprograms. If 
there is a conflict between the name given 
to the subprogram in the first statement of 
the source module and the name specified in 
the NAME option, the name specified in the 
SUBROUTINE or FUNCTION statement takes pre- 
cedence. The name appears in the source 
listing, storage map, and object module. 


BCD or  EBCDIC: The BCD option indicates 
that the source module is written in Binary . 
Coded Decimal; EBCDIC indicates Extended 

Binary Coded Decimal Interchange Code. 


Note: The compilers do not support BCD 
characters either in literal data or as 
print control characters. Such characters 
are treated as  EBCDIC. Consequently, a 
BCD +, for example, used as a carriage 
control character will not cause printing 
to continue on the same line. Therefore, 
programs keypunched in BCD, should be care- 
fully screened in order to avoid errors 
relating to literal data and print control 
characters. 


SOURCE or NOSOURCE: The SOURCE option 
specifies that the source listing is writ- 
ten on the data set specified by the 
SYSPRINT DD statement. The NOSOURCE option 
indicates that no source listing is writ- 
ten. A description of the source listing 


is given in the section "System Output." 


DECK or NODECK: The DECK option specifies 
that the compiled source module (1.e., the 
object module) is written on the data set 
specified by the SYSPUNCH DD statement. 


NODECK specifies that no object module is 
written. A description of the object 
module is given in the section "System 
Output." 
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MAP or NOMAP: The MAP option specifies 
that a storage map of the object module is 
written on the data set specified by the 


SYSPRINT DD statement; the option NOMAP 
specifies that no map is written A de- 
scription of the map is given in the 


section “System Output." 


LOAD or NOLOAD: The LOAD option 
that the 
data set specified by the SYSLIN DD 


ment. This option must be used 
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indicates 
object module is written on the 
state- 
if a 
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cataloged procedure to compile, link edit, 
and execute is used. A description of the 


object module is given in the section 
"System Output". 
The NOLOAD option indicates that the 


object module is not written on the SYSLIN 
data set. When NOLOAD is specified, the 
compiler automatically returns a condition 
code of 12. This option must not be used 
if a cataloged procedure to compile, link 
edit, and execute is used. If NOLOAD and 
DECK are specified, the SYSPUNCH data set 
may be used as input to the linkage editor. 


If the LOAD and DECK options are speci- 
fied, the object module is written on the 
two data sets, indicated by the SYSLIN and 
SYSPUNCH DD statements. 


SPACE or  PRERM: When the PRFRM option is 
specified, the size of a source module is 
limited. (See Table 14.) By Specifying 


the SPACE option and more than 15360 bytes 
in the SIZE option, the limit for the size 
of the source module is increased. 


The PRFRM option indicates that excess 
main storage is allocated for faster compi- 
lations rather than larger source modules. 
The PRFRM option must be specified if any 
of the compiler data sets SYSIN, SYSPRINT, 
or SYSPUNCH are allocated to non-unit- 
record devices (e.g., priority schedulers). 
To block records for the compiler data sets 
SYSIN, SYSPRINT, SYSPUNCH, and SYSLIN, or 
to write the SYSPRINT, SYSPUNCH, and SYSLIN 
data sets as members of partitioned data 
sets, the PRFRM option must be specified. 
Other data sets can be concatenated with 
the SYSIN data set only if the PRFRM option 
is specified. (Note: Only data sets that 
reside on the same type of device can be 
concatenated.) 


To ensure that these options improve the 
operation of the compiler, at least 19456 
bytes should be allocated to the compiler 
in the SIZE option. If less than 19456 
bytes are specified or if less than 19456 
bytes are available and the PRFRM option is 
specified, processing continues using the 
SPACE option and the amount of storage 
available. If blocked input and output is 
specified with the PRFRM option, the SIZE 
option must specify enough storage to 
contain blocked records. Any storage not 
used by the PRFRM option is used to compile 
a bigger source module and increase the 
Size of the buffers which decreases the 
number of I/O operations and increases the 
speed of the compiler. 


ADJUST or NOADJUST: The 
indicates that the source module contains 
embedded blanks, contains no meaningful 


blanks, and uses keywords as variable names 


ADJUST option 





iled faster. For 
Leones Starements must be written as 


in the source statements. With the ADJUST 
option, the source statement can contain 
embedded blanks. For example, the source 
Statements 


FOR MA T (1H , 110) 
DELTA T=T /INC 
are valid. With the ADJUST option, the 


source statement need not contain meaning- 
ful blanks. For example, the source state- 
ments 


DOUBLEPRECIS IONFUNCTIONDPROD (X, Y) 
DIMENSIONABC (10) 


are valid. With the ADJUST option, the 
source can contain FORTRAN keywords (GO, 
DO, IF, READ, FIND, WRITE, etc.) used as 
variable names. For example, the source 
statements 


IF(IF) 20,30,40 
READ=A+B+t+C 


are valid. 


If NOADJUST is specified, the source 
module must not contain embedded blanks, 
must contain meaningful blanks, and must 
not contain FORTRAN keywords used as vari- 
able names. with the NQADJUST 
example, the previous 
fol- 
lows to make them acceptable to the compil- 


er when the NOADJUST option is used. 






FORMAT(1H ,110) 

DELTAT=T/INC 

DOUBLE PRECISION FUNCTION DPROD (X,Y) 
DIMENSION ABC(10) 

IF (IFX) 20,30, 40 

READX=A+BtC 


Multiple Compilation Within a Job Step 


be performed 
conditions 


Several compilations may 
within one job step, if the 
shown in Table 5 are met. 
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Table 5. . Conditions for Multiple Compila- 
tion , 


pS a a ee eye Saari aa asec alae ais | 


T = 
}Option|Input Stream Source Modules | 
|Device Reside On | 


: 
| 

[------ $-------------- erage eernamaaaas { 
+ 
| 


| j|card reader 


| }-------------- 


|SPACE | input stream | 
| (eaRe eS ASR ee Aaa = { 
| | Jcard reader | 
t------ {~--~----------}------------------- { 
| Jcard reader | (input stream | 
[PRFRM [|--~-~~----~--~~- | )tape | 
| {tape | jcard reader | 
| | | 3 | \direct access | 
Coe tee J 


The compiler recognizes the FORTRAN END 
statement in a source deck, compiles the 
program, and determines if another source 
program follows . the END statement. If 
there iS another source program, another 
compilation is initiated (see Figure 29). 


//JOBRA JOB ,*RBLACK' 
//STEP1 EXEC FORTEC 
//FORT.SYSIN DD * 

1 READ (9,10)A,B,C 


END 
SUBROUTINE CALC 


END | 
/* 
Within a 


Figure 29. Multiple Compilation 


Job Step 


Only one EXEC statement may be used to 


initiate a job step; therefore, compiler 
options can be stated only once for all 
compilations ina job step. These options 


are then used for all compilations in the 
batched compilation. 


A main program compiled first in a 
multiple compilation iS given the name 
specified in the NAME option. Any subpro- 


gram in a multiple compilation is given the 
name of the subprogram in the first card of 
the source subprogram. For example, in the 
multiple compilation, , 


4 Q 


//MULTCOMP JOB ,‘FRANK KELLY' 
// EXEC FORTEC, PARM. FORT=' NAME=GAMMA‘ 
//FORT.SYSIN DD * 

SUBROUTINE ALPHA 


END 
FUNCTION BETA(X,Y,2Z) 


END 
/* 


the first module is given the name ALPHA 
and the second is given the name BETA. 


Any main program after the first program 
is given the name MAIN. Moreover, if the 
NAME option is not specified and the first 
module iS a main program, the first program 
is also given the name MAIN. For example, 
in the multiple compilation, 


/ /MULCOM JOB 
// EXEC FORTEC 
//FORT.SYSIN DD * 

READ (1,10) ALP,BETA 


END 
SUBROUTINE INVERT (A,B) 


END 
READ(5)P,Q0,R 


ea 


END 
/* 


both the first and third programs are given 
the name MAIN. The second program is 
assigned the name INVERT. 


When a multiple compilation is per- 
formed, the SYSLIN or SYSPUNCH data set 
contains all the object modules because 


only one SYSLIN DD statement may be sup- 


plied for compiler output. The object 
modules are placed sequentially on the 
volume. 


r T 1 
| Object Module 1 | Object Module 2 


ee eee ee a i ae a wll a io dj 


LINKAGE EDITOR PROCESSING 


The linkage editor processes object 
modules, resolves any references to subpro- 


grams, and constructs a load module. TO 
communicate with the linkage editor, the 
programmer Supplies an EXEC statement and 
DD statements that define all required data 
sets; he may also supply linkage editor 


control statements. 


rr a ce a 


Three linkage editor programs are avail- 
able with the operating system. The pro- 
gram names for the three linkage editors 
and the minimum storage in which they are 
designed to operate are: 


ITEWLE150 15,360 bytes 
ITEWLE180 18,432 bytes 
TEWLE440 45,056 bytes 


All facilities described for the linkage 
editor in this publication are available 
with all three linkage editors, except that 
blocking the primary input primary output 
is available only with the higher-level 


linkage editor, IEWLE440. 
For simpler programming, the linkage 
editors have been assigned the alias pro- 


gram name IEWL. If the programmer speci- 


fies the parameter 
PGM=IEWL 


in the EXEC statement, the highest level 
linkage editor provided in the 
installation's operating system iS exe- 
cuted. If he wants to execute a specific 
linkage editor, he must specify the specif- 
ic program name of that linkage editor. 


Linkage Editor Input and Output 


There are two types of input to the 
linkage editor: primary and secondary. 
Primary input consists of a sequential data 
set that contains object modules and lin- 
kage editor control statements. Any exter- 
nal references among object modules in the 
primary input are resolved by the linkage 
editor as the primary input is processed. 


Furthermore, the primary input contains 
references to the secondary input. These 
references are linkage editor control 


Statements and/or FORTRAN external referen- 
ces in the modules. 


resolves these refer- 
into two types: 


secondary input 
ences and is separated 


automatic call library and additional input 
Specified by the programmer. The automatic 
call library should always be the FORTRAN 
library (SYS1.FORTLIB), which is the PDS 
that contains the FORTRAN library subpro- 
grams. Through the use of DD statements 
that omit the ddname, the automatic call 
library can be concatenated with other 
partitioned data _ sets. Three types of 
additional input may be specified by the 
programmer: 





object module used as the rain 
the load module being con- 
This object module, which 
can be accompanied by linkage editor 
control statements, is either a member 
of a PDS or is a Sequential data set. 
The first record in the primary input 
must be a linkage editor INCLUDE con- 
trol statement that tellis e inkage 
editor to insert the main program. 


e An 
program in 
Structed. 


e An object module or a load module used 
to resolve external references made in 
another module. The object module, 
which can be accompanied by linkage 
editor control statements, iS a sequen- 
tial data set or iS a member of a PDS. 
The load module, which is a member of a 
PDS, cannot be accompanied by linkage 
editor control statements. An INCLUDE 
Statement that defines the data set 
must be given to include the module. 


e A module used to resolve external ref- 
erences made in another module. The 
load module or object module (which can 
be accompanied by linkage editor con- 
trol statements) is a member of a PDS. 
A linkage Cat Or eideinhias. control state- 
ment that define e data set to the 
linkage editor must be given to include 
modules from the data set in the load 
module. 


In addition, the secondary input can con- 
tain external references and linkage editor 


control statements. The automatic call 
library and any of the three types of 
additional input may be used to. resolve 


references in the secondary input. 


The output of the linkage editor con- 
Sists of the load module, module map, and 


error messages. The load module is always 
placed ina PDS. Error messages and the 
optional module map are written on an 
intermediate storage device or a printer. 


In addition, a work data set is required by 
the linkage editor to do its processing. 
Figure 30 shows the I/O flow in linkage 
editor processing. | 
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Linkage Editor ddnames 





CA Ro Pe ge ee oe ee ae ee FS Ag co a ga i aa 1 
| ddname | FUNCTION | DEVICE REQUIREMENTS | 
ea a a ee oe i ts a A a as aca wes oe si eh a St a a i a Sa aca ec Sem as Gee rl ie el ln es Ge +----------------------------| 
| SYSLIN |Primary input data, normally the output of |edirect access | 
| {the compiler | magnetic tape | 
| | {ecard reader | 
}--------------}------------------------------------------- {---------------------------- { 
| SYSLIB Jautomatic call library (e.g., SYS1.FORTLIB)|edirect access | 
—-—— + + —-—— ~~ - ~~ fe - - - -- -f 
|SYSUT1 Jwork data set jedirect access | 
~-----~--~----}---~---------=-------- === += == === === + === }----------------------------4 
| SYSPRINT | diagnostic messages | *printer | 
| | |eintermediate storage device| 
igh es aan gh ee a a rat a ts dc eee a 4 
| SYSLMOD Joutput data set for the load module {edirect access | 
}--------------}--------------------------------- == === - = fn oo nn nn { 
|user-specified|additional libraries and object modules |edirect access | 
emagnetic tape 
| | | emag Pp 
teeewege aaa ee Ic ae a aS ts oe cate a pe a eee ee J 
ment that retrieves any additional librar- 
ies is written in INCLUDE and LIBRARY 
SYSUT 1 Statements and is not fixed by the linkage 
editor. 
SYSLIB Work SYSLMOD 
Automati penne! Output 
Call Medals In addition, if one of the higher level 
Library Library linkage editors (program name: IEWLF440 or 
ITEWLF880) is used, the SYSLIN data set can 
SYSLIN contain blocked records. The linkage edi- 
tor can then accept a blocked SYSLIN data 
Primary Linkage set that is created by the compiler. The 


Input Editor 


+i 
Additional Diagnostic 


t 
Libraries ate 





SYSPRINT 


Figure 30. Linkage Editor Input and Output 
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The programmer communicates data set 
information to the linkage editor through 
DD statements identified by specific 


ddnames (similar to the ddnames used by the 
compiler). The ddnames, functions, and 
requirements for data sets are shown in 


Table 6. 

Any data sets specified by SYSLIB or 
SYSLMOD must be partitioned data _ sets. 
(The other data sets are partitioned or 


sequential.) The ddname for the DD state- 
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record length for the SYSLIN data set is 80 
bytes. With the linkage editor IEWLF440 
the maximum number of records per block is 
5. With IEWLF880, the maximum number of 
records per block is 40. 


The device classes used by the compiler 
(see Table 3) must also be used with the 
linkage editor. The data sets used by 
linkage editor may be assigned to. the 
device classes listed in Table 7. 


Table 7. Correspondence Between Linkage 
Editor ddnames and Device Classes 

Gir re ee ee Ne er ee 1 
| ddname |Possible Device Classes | 
a a a Sek ta rs 

| SYSLIN |SYSSQ,SYSDA,or the input | 
| jstream device (specified | 
| [by DD* or DD DATA) or a | 
| |device specified as the | 
} {card reader | 
aan Reem ae nee NDC SG gr) EN Oe nO I ROSA A | 

| SYSLIB | SYSDA | 
Se re a area ere Deel a  Pe e cn t J 

| SYSUT1 | SYSDA | 
nee ee Paar eee eee Ree ee eS a YR ER eee ee oC 4 

| SYSLMOD |SYSDA | 
a ie nee Naat (ee an a ae are nee ENE to Tn aE EN | 

| SYSPRINT |A, SYSSQ l 
}--------------}-------------------------- 4 
| user-specified |SYSDA,SYSSQ | 
ieee eee ieee eee eee peg cg te geen ac faee Yano er eke ee ee oer J 


Additional Input 


The INCLUDE and LIBRARY Statements are 


used to specify additional secondary input 
to the linkage editor. Modules specified 
by neither INCLUDE nor LIPRARY statements 
nor contained in the primary input are 
retrieved from the automatic call library. 
INCLUDE Statement: 

ey a gp ee ere 1 
| Operation|Operand | 
}---------}------------------------------- { 
| INCLUDE |ddname[ (member-name 


| 
[,member-name]...)] | 
[,ddname[ (memrer-name | 
{,member-name]...)]]... | 


ee 


The INCLUDE statement is used to include 
either members of additional libraries 
(PDS) or a sequential data _ set. The 
"“ddname" specifies a DD statement that 
defines either a PDS containing object 
modules and control statements or just load 
modules, or defines a sequential data set 
containing object modules and linkage edi- 
tor control statements. The “member name" 
is the name of a member of a PDS and is not 
used when a Sequential data set iS speci- 
fied. 


The linkage editor inserts the object 


module or load module in the output load 
module when the INCLUDE statement is 
encountered. 


TN SD AT SL 


{LIBRARY |ddname (member-name | 
[,member-name]...) | 

[, ddname (member-name | 
| 


[,member-name]...)]... 


The LIBRARY statement is used to include 
members of additional libraries. The 
“ddname"™ must be the name of a DD statement 


that specifies a PDS that contains either 
object modules and linkage editor control 
statements, or just load modules. The 


“member name" iS an external reference that 
is unresolved after primary input process- 
ing is complete. 


The LIBRARY statement differs from the 
INCLUDE statement: external references 
specified in the LIBRARY statement are not 
resolved until all other processing, except 
references reserved for the automatic call 


library, is completed by linkage editor. 
(INCLUDE statements resolve external refer- 
ences when the INCLUDE statement is encoun- 
tered. ) 


Example: Two subprograms, SUB1 and SUB2, 
and a main program, MAIN, are compiled by 
separate job steps. In addition to the 
FORTRAN library, a private library, MYLIR, 
is used to resolve external references to 
the symbols X, Y, and 4Z. Each of the 
object modules is placed in a sequential 
data set by the compiler, and passed to the 
linkage editor job step. 


Figure 31 shows the control statements 
for this job. (Note: Cataloged procedures 
are not used in this job.) In this job, an 
additional library, MYLIB, is specified by 
the LIBRARY statement and the ADDLIB DD 
statement. SUB1 and SUB2 are included in 
the load module by the INCLUDE statements 
and the DD statements DD1 and ODD2. The 
linkage editor input stream, SYSLIN, is two 
concatenated data sets: the first data set 
is the sequential data set &GOFILE which 
contains the main program; the second data 
set is the two INCLUDE statements and the 
LIBRARY statement. After linkage editor 
execution, the load module is placed in the 
PDS PROGLIB and given the name CALC. 


Linkage Fditor Priority 


If modules with the same name appear in 
the input to linkage editor, the linkage 
editor inserts only one of the modules. 
The following priority for modules is es- 
tablished by the linkage editor: 


1. Modules appearing in the SYSLIN data 


set or modules identified by INCLUDE 
statements. 

2. Modules identified by the LIBRARY 
Statement. 

3. Modules appearing in the SYSLIB data 
set. 


For example, if a module named _ SIN 
appears both in a module identified in a 
LIBRARY statement and in the automatic call 
library, only the module identified in the 
LIBRARY statement is inserted in the output 
load module. 


If modules with the same name appear in 
a Single data set, only the module encoun- 
tered first is inserted in the output load 
module. 
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//JOBX JOB 
| //STEP1 
| e 
| ; 


| 

|\//SYSLIN DD 
| //SYSIN DD 
| Source module for MAIN 
| /* 
|//STEP 2 


(oan - - - - $e 
| 


EXEC 


| . 
| ° 
| 

|//SYSLIN DD 
|] 7/SYSIN DD * 

| source module for SUB1 
| 7* 


| //STEP3 EXEC 


| é 
| ‘ 
| 

|/7SYSLIN DD 
| //7SYSIN DD * 

Source module for SUB2 
| /* 

| //STEP4 


EXEC PGM=TIEWL 


| : 
| , 
| 

\//SYSLIB DD 
|//SYSLMOD DD 


| 77/ADDLIB DD DSNAME=MYLIB, DISP=OLD 


| //DD1 DD DSNAME=*.STEP2.SYSLIN, DISP=OLD 
| //DD2 DD DSNAME=*. STEP3.SYSLIN, DISP=OLD 
|//SYSLIN DD DSNAME=*.STEP1.SYSLIN, DISP=OLD 
\// DD + 


| INCLUDE DD1 
| INCLUDE DD2 
| LIBRARY ADDLIB(X,Y,Z) 
| 


Figure 31. 


Multiple Link Editing Within a Step 


Just as the compiler can perform several 
compilations within a procedure step or job 
step (batched compilation), the linkage 
editor can produce several load modules 
within a single procedure step or job step. 
Another linkage editor control statement, 
the NAME statement, is used to delimit the 
input for one load module from the input 
for another load module. 


Br ge re ee ee ere 1 
| Operation|Operand | 


The NAME statement is placed after the 
last object module or linkage editor con- 
trol statement used aS input to a load 
module. Any modules or control statements 


Yu 


PCM=TEJFAAAO, PARM="NAME=MAIN, LOAD' 
DSNAME=€GOFILE, DISP=(, PASS) , UNIT=SYSSQ 
PGM=IEJFAAAO, PARM=" NAME=SUB1, LOAD‘ 
DSNAME=6SUBPROGI , DISP= (, PASS) , UNIT=SYSSOQ 
PGM=TEJ FAAAO, PARM=* NAME=SUB2, LOAD‘ 


DSNAME=6&SUBPROG2, DISP=(, PASS) , UNIT=SYSSQ 


DSNAME=SYS1.FORTLIB, DISP=OLD 
DSNAME=PROGLIB(CALC), UNIT=SYSDA 


re mc re ce cm me mn ee re ner rs ce ee ee ee ee eee ee ees ee eee oe ol 


Linkage Editor Example Using INCLUDE and LIBRARY Statements 


following a NAME statement are assumed to 
be part of the next load module being 
constructed. A NAME statement can be 
placed only in the primary input: any NAME 
statements in the secondary input are 
ignored. 


All of the resulting load modules froma 
batched linkage editor execution are placed 
in the library (PDS) specified in the 
SYSLMOD DD statement. The member name _ for 
each of the resulting load modules is 
Specified as “member name" in the NAME 
Statement. For example, if the primary 
input for one of the load modules is 
followed by a NAME statement containing the 
member name XALPHA and the SYSLMOD ODD 
statement for the linkage editor step spec- 
ifies the PDS MYLIB, the resulting load 
module is assigned the member name XALPHA 


and is placed in the PDS MYLIB. The 
SYSLMOD DD statement should not contain a 
member name. However, if the SYSLMOD 


Statement contains a member name, that 
member name must be identical to the member 
name specified in the first NAME statement 
appearing in the primary input. 


The NAME statement can be used to speci- 
fy that a load module currently residing in 


a PDS is to be replaced by the load module 
constructed from the input immediately 
preceding the NAME statement. Replacement 


is specified by coding (R) following the 
member name in the NAME statement. 


When several load modules are created in 
a Single step (multiple link editing), the 
options specified in the EXEC statement for 
that step apply to each load module created 
in that step. 


resides on a 
A load module 
this module, 


An object module 

data set PROGX. 
1s to be constructed from 
using the FORTRAN library anda private 
library MYLIB to resolve external refer- 
ences within the module. Another object 
module resides on a sequential data _ set 
PROGY, and a load module is to be con- 
Structed from this object module using the 
same library to resolve external refer- 
ences. Both load modules are to be placed 
in the library PROGLIB. The first module 
is to be assigned the member name FUNTST; 
the second module is assigned the member 
name SUBTST. 


Example: 
sequential 


The following text shows the job control 
statements and the position of INCLUDE, 
LIBRARY, and NAME linkage editor statements 
necessary to perform the job. 


//JOB2 JOB 108,'J.JONES' 

//STEP EXEC PGM=IEWL 

//SYSLIB DD DSNAME=SYS1.FORTLIB, DISP=OLD 
//SYSLMOD DD DSNAME=PROGLIP, DISP=OLD 


//DD1 DD DSNAME=PROGK, DISP=OLD 
//DD2 DD DSNAME=PROGY, DISP=OLD 
//ADDLIB DD DSNAME=MYLIB 
//SYSLIN DD * 

INCLUDE DD1 

LIBRARY ADDLIB(X, Z) 

NAME FUNTST 

INCLUDE DD2 

LIBRARY ADDLIB(Y, 2) 

NAME SUBTST 
/ * 


The JOB statement JOB2 defines the job, 
and the EXEC statement STEP instructs’ the 
operating system to execute the program 
IEWL. The DD statement SYSLIB tells the 
linkage editor that the FORTRAN library is 
the automatic call library. The SYSLMOD DD 


linkage editor to 


statement tells the 
both modules are 
PROGLIB. 


linkage editor that 
written in the PDS 


The first INCLUDE statement and the LCD 
Statement DD1 tell the linkage editor that 
the first load module is to contain the 


object module that resides on the sequen- 
tial data set PROGX. The first LIBRARY 
Statement tells linkage editor that the 


references to X and Z in this module are to 
be resolved by the library MYLIB. The 


first NAME statement tells the linkage 
editor that the resulting module is 
aSSigned the member name FUNTST. The con- 


trol statements are similar for the load 


module with the member name SUBTST. 


Ee ee ca TD <A ee re ce rere mene ee er eR RET RTT 


In addition to the LIBRARY, INCLUDE, and 
NAME statements, other control statements 
are available for use with the linkage 
editor. These statements enable the user 
to: specify different names for load 
modules (ALIAS), replace modules within a 
load module (REPLACE), change program names 
(CHANGE), and name entry points (ENTRY). 
In addition, two statements (OVERLAY and 
INSERT) enable the programmer to overlay 
load modules. For a detailed description 
of these control statements, see the sec- 
tion “Specifying Additional Processing" in 


Options for Linkage Editor Processing 


The linkage editor options are specified 
in an EXEC statement. The options that are 
most applicable to FORTRAN programming are: 


PARM MAP , LET 
PARM.procstep}=(| XREF | |, XCAL]| [, NCAL] 


[, LIST] [, OVLY]) 
MAP or  XREF: The MAP option instructs 


linkage editor to produce a map of the load 
module; this map indicates the relative 


location and length of main programs and 
subprograms. If XREF is specified, a map 
of the load module is produced and a 


cross-reference list indicating all exter- 
nal references in each 
Subprogram is generated. 
is specified, neither _ 
cross-reference “Tisting is generated. De- 
scriptions of the map and cross-reference 
listing are given in “System Output." 


main program and 











LET or  XCAL: The LET option instructs 


mark the load module 
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ready for execution even though error con- 
ditions were found. The XCAL option 
informs the linkage editor to mark the load 
module executable even though valid exclu- 
Sive branches are made between modules that 
overlay each other. 


NCAL: The NCAL option informs linkage 
editor that the libraries specified in the 
SYSLIB DD statement or specified in LIBRARY 
Statements are not used to resolve external 
references. (The SYSLIB DD statement need 
not be specified.) The subprograms in the 
libraries are not inserted in the load 
module. However, the load module is marked 
executable. 


When an object module will be Ilink 
edited again prior to its use in execution 
and that module contains either | 


1. An input/output statement (READ, 
WRITE, BACKSPACE, REWIND, END FILE), 


2. A STOP/PAUSE statement, 


3. Any service subprogram (SLITE, SLITET, 
OVERFL, DVCHK, EXIT, DUMP, PDUMP), or 


4, Any one of the following library sub- 
programs 
DEXP DLOG DLOG10 DSIN 
DCOS. DSQORT DTANH EXP 
ALOG ALOG10 SIN COS 
SORT TANH 


NCAL must be specified. 
a STOP or PAUSE 
subprogram, Or any 


An I/O statement, 
Statement, any service 
of the above library 
Subprograms require FORTRAN load module 
execution routines. These routines are 
inserted by the linkage editor, and must be 
inserted only once in any load module. 
When the final linkage editor processing 
for the module is performed, NCAL should 
not be specified and the load module execu- 
tion routines will be inserted. 


LIST: The LIST option indicates that link- 
age editor control statements are listed in 
card-image format on the diagnostic output 
data set. 


OVLY: The OVLY option indicates to _ the 
linkage editor that an overlay structure is 
to be constructed by the linkage editor. 
This option must be used if an OVERLAY 
linkage editor control statement is used. 
If an OVERLAY statement is not used, the 
OVLY option iS ignored. For more informa- 
tion about overlay structures see the Link- 
age Editor publication. 


Other options can also be specified for 
the linkage editor. For a detailed de- 
scription of all linkage editor options, 
see the Linkage Editor publication. 
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LOAD MODULE EXECUTION 


The ddnames used in executing load 
modules must adhere to the format specified 
by IBM. When the system is generated, 
device names are assigned by the operating 
system and the installation; the programmer 
chooses devices by specifying either the 
installation or operating system names. 


Program Name 


When “PGM=program name" is used to indi- 
cate the execution of a load module, the 
module must be in either the system library 
(SYS1.LINKLIB) or a private library. When 
the module is in a private library, a 
JOBLIB DD statement, indicating the name of 
the private library, must be supplied to 
concatenate the private library with the 
system library. For example, assume that 
the load modules CALC and ALGBRA in the PDS 
MATH and the load module MATRIX in the PDS 
MATRICES are executed in the following job: 


//JOBN JOB 00, JOHNSMITH 

//JOBLIB DD DSNAME=MATH, DISP= (OLD, PASS) 
// DD DSNAME=MATRICES, DISP=(OLD, PASS) 
//STEP1 EXEC PGM=CALC 


//STEP2 EXEC PGM=MATRIX 


//STEP3 EXEC PGM=ALGBRA 


The JOBLIB DD statement concatenates the 
private library MATH with the system 
library. The private library MATRICES is 
concatenated with the system library, by 
concatenating the second DD statement with 
the JOBLIB DD statement. 


In the source module, data set reference 
numbers are used to identify data sets. 
Data sets processed by a FORTRAN load 
module must be either sequential or direct 
and must be defined by DD statements. The 
correspondence between a data set reference 
number and a DD statement is made by a 
ddname. 


The ddname format that must be used for 
load module execution is: 


FTXxFyyy 


where: 
xx is the data set reference number. 
yyy is a FORTRAN sequence number 


Data Set Reference Number (xx): When the 
system is generated, the upper limit for 
data set reference numbers is specified by 
the installation; it must not exceed 99, 
This upper limit does not correspond to the 


number of input/output devices. 


If an installation specifies an upper 
limit of 99 for its data set reference 
numbers, the ddnames and data set reference 


numbers correspond as shown in Table 8. 
Note that 0O is not a valid data set 
reference number. 

Table 8. Load Module ddnames 

a gy eee er ae ae Ta a 

| Data Set Reference Numbers | ddnames _ | 
}----------------------------- }----------- { 
| 1 | FroiFyyy | 
| 2 | FTO2Fyyy | 
| : | ° | 
| ‘ | : | 
| . | ° | 
| ‘ | ‘ | 
| 13 } FT13Fyyy | 
| : : | 
| ° | , 
‘ | ° | 
i 99 } FT99Fyyy | 
Ce ae oe ee ee eas I eerie J 


FORTRAN Sequence Number _ The FORTRAN 
sequence number refers to sequential data 
sets that are written using the same data 
set reference number. 


For sequential or partitioned data sets, 
the first FORTRAN sequence number is always 


001. This sequence number changes’ only 
when an END FILE statement is executed and 
the program later executes a READ or WRITE 


statement using the same data set reference 
number. For example, the following state- 
ments, executed in the order shown, cause 
the FORTRAN sequence number to change. 


WRITE(10,5)A,B,C 


END FILE 10 


WRITE(10,5)X,Y,Z 


For the first WRITE, a DD statement 
identified by the ddname FT10F001 defines 
the data set. For the second WRITE, a DD 
statement identified by the ddname FT10F002 
defines the data set. 


For direct data _ sets, the FORTRAN 
sequence number is always 001. Attempting 
to execute an END FILE statement for a 
direct data set is ignored. 


A DD statement with the required ddname 
must be supplied every time the WRITE, END 
FILE, READ/WRITE sequence occurs. If the 
FORTRAN statements in the following example 


are executed, DD statements with the 
ddnames indicated by the arrows must be 
supplied for the corresponding WRITE 
statements. 
Statements ddnames 
15 FORMAT (3F10.3,17) 
10 FORMAT (3F10. 3) 
DO 20 I=1,J 
20 WRITE(17, 10)A,B,C Roe erie Ne gee nt ee oe > FTL7JFOOL 
ENDFILE 17 
DO 30 I=1,N 
30 WRITE(17, 15) xX, Y, Z,K 8 Te en en es > FT1L7FOO2 
END FILE 17 
DO 4O I=1,M, 2 
40 WRITE(17,10)A,B,C ----------- > FT17F003 
ENDFILE 17 
If the preceding instructions are used 


to write a tape, the output tape has_ the 
appearance shown in Figure 32. 
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Written using DD 
Statement FT17F001 
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Figure 32. 


Retrieving | Pata — Sets se with Varying 
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Retrieving the data sets shown in Figure 
32 depends on when the data set was created 
and whether it was cataloged when it was 


created. There are four distinct 
conditions: 
1. The data set is created in the job 


step in which it is retrieved. 


2. The data set is created in one job 
step and retrieved in another Job 
step, both steps in the same job. 


3. The data set was created and cataloged 
in a previous job. 


4. The data set was created in a previous 
job, but was not cataloged. 


To retrieve the data sets shown in 
Figure 32, the data set sequence numbers in 
the LABEL parameter must be supplied in DD 
statements used to write the data sets. 
The LABEL parameter is described in detail 
in the section "Creating Data Sets." 


NL 

é 

LABEL=({data-set-sequence-number] ,,SL ( 
| BLP) 


indicates 
of the data set on a sequen- 
tial volume. This sequence number is cata- 
loged along with the remainder of the 
information in the DD statement. For the 
first data set on the volume, the data set 
sequence number is 1; for the second, it is 
2; etc. 


The “data-set-sequence-number" 
the position 


If one of the data sets shown in Figure 
32 is read in the same job step in which it 
is created, an END FILE statement and then 
a REWIND statement must be issued after the 
last WRITE instruction. The FORTRAN 


4g 





Written using DD 
statement FT17F002 
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Tape Output for Several Data Sets Using Same Data Set Reference Number 


tapemark tapemark 


records 


ey Pie ee ee ee ee 


; [Xp Yo Zp K[JA,B, C]AyB, cl eee |Ar By Cl ‘iets 
mE 


Written using DD 
statement FT17F003 
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sequence number is incremented by the 
execution of the END FILE statement if the 
data set is to be read by the same data set 
reference number. DD statement FT17F004 is 
used to read the data set. For example, 
the following DD statements are used to 
write the three data sets shown in Figure 
32 and then read the second data set: 


//FT17F001 DD UNIT=TAPE, LABEL=(,NL), 


//¥T17F002 DD UNIT=TAPE, LABEL=(2,NL), X 
// VOLUME=REF=*. FT17F001 
//¥T17F003 DD UNIT=TAPE, LABEL=(3,NL), x 
J/ VOLUME=REF=*,. FT17F001 
//¥FT1L7F004 DD VOLUME=REF=*. FT17F002, x 
J/ DISP=OLD, LABEL= (2, NL) 


The VOLUME parameter indicates that the 
data set resides on the same volume as’ the 
data set defined by DD statement FT17F001. 
DD statement FT17F004 refers to the data 
set created by DD statement FT17F002. 


If the data set is read by a different 
data set reference number, for example, 
data set reference number 18, then the DD 


statement FT17F004 is replaced by the 
statement: 

//FT1L8F001 DD VOLUME=REF=*. FT17F002, Xx 
// DISP=OLD 


If the data sets shown in Figure 32 are 
cataloged for later reading, the following 
DD statements should be used to write the 
data sets: 


//8T17F001 DD DSNAME=N1,LABEL=(1,NL), X 
J/ DISP=(, CATLG) 

//FT17F002 DD DSNAME=N2, LABEL=(2,NL), X 
11 DISP=(, CATLG) , VOLUME=REF=*, FT17F001 
//¥T17F003 DD DSNAME=N3, LABEL=(3,NL), X 
// DISP=(, CATLG) , VOLUME=REF=*, FT17F002 


The only information necessary to retrieve 
the data sets is the DSNAME and the DISP 
parameters. (The data set sequence number 
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is stored in the catalog and is accessible 
to the control program.) For example, if 
data set reference number 10 is used to 
retrieve the data set Ni, the following DD 
statement is used to retrieve the data set: 


//¥T10F001 DD DSNAME=N1, DISP=OLD 


If the data set is not cataloged and 
then retrieved in a later job, the VOLUME 
and LABEL information is needed to retrieve 
the data set. When the data set is 
created, the programmer must assign it to a 
specific volume. 


Assume the data sets shown in Figure 32 
were assigned the volume identified by the 
volume serial number A1i1i111 when the data 
sets were created. If the second data set 
written on the volume is retrieved by data 
set reference number 10 ina later job, the 
following DD statement is needed to re- 
trieve the data set: 


//®TLOFO01 DD VOLUME=SER=A11111, DISP=OLD, X 
// LABEL=(2, NL), UNIT=SYSSQ 


REWIND and BACKSPACE Statements 


The REWIND and BACKSPACE statements 
force execution of positioning operations 
for sequential data sets by the control 
program. For direct access data _ sets, 
REWIND and BACKSPACE operations are 
ignored. 


The REWIND statement instructs the con- 
trol program to position the volume on the 
device so that the next record read or 
written is the first record transmitted for 
that data set reference number on that 
volume, irrespective of data set sequence 
numbers. The space acquired dynamically 
for I/0 buffers for a data set is released 
as part of the REWIND operation. For this 
reason, a program that uses many data sets 
may conserve main storage by issuing REWIND 
statements after processing is completed. 


The BACKSPACE statement causes a back- 


ward skip of one logical record for each 
BACKSPACE ISSUED. The records may be 
blocked or unblocked and of any valid type 
(F, U, V). Note that the default selection 


for FORTRAN data sets is U-type (undefined) 
records which can not be blocked. If a 
BACKSPACE statement requests backward move- 
ment past the load point or first record of 
the data set, that request is ignored. 


Since BACKSPACE is not supported across 
reels of a multireel data set on tape, a 
BACKSPACE request made under such condi- 
tions is treated as an attempt to move 
backward past the load point. The user is 
not made aware of input/output errors that 


have occurred during a BACKSPACE operation 
until he issues his next READ or WRITE 
request. BACKSPACE should not be directed 


toward the data set defined as SYSIN. 


When the system is generated, the 
installation assigns a data set reference 
number so that execution error messages and 
information for traceback, DUMP, and PDUMP 
can be written on a data _ set. The pro- 
grammer must define a data set, using a DD 
statement with the ddname for that data set 
reference number. This data set should be 
defined using the SYSOUT=A parameter. If 
the error message data set is on tape, the 
DD statement should contain DCB parameters 
for BLKSIZE=133 and RECFM=UA. (The publi- 


s ner explains 
the method of assigning the data _ set 
reference number. See the description of 
the OBJERR parameter in the FORTLIB macro 
instruction in the section "System Genera- 
tion Macro-Instructions.") If this data set 
is not defined and an error condition is 
encountered during the execution of the job 
step, the job step is terminated and a 
condition code of 16 is issued. 





Execution Device Classes 


For load module execution, the program- 
mer can use the same names assigned to 
device classes used by the compiler (shown 
in Table 3). However, additional names for 
specific devices and device classes can be 
assigned by the installation where’ the 
system is generated. The programmer’ can 
choose which device to use for his data 
sets, and can specify the name of that 
device or class of devices to which that 
device belongs in the UNIT parameter of the 
DD statement. 


However, a direct access device must be 
used for a data set which is defined (by 
the DEFINE FILE statement) as a direct 
access data set in the FORTRAN program. 
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CREATING DATA SETS 


Data sets are created by specifying DSNAME - name of the data set 
parameters in the DD statement or by using 


a data set utility program. This section UNIT - class and number of devices used 
discusses the use of the DD statement to for the data set 
create data sets. (The Utilities publica- 
tion discusses data set utility programs.) VOLUME - volume on which the data _ set 
No consideration is given to optimizing I/0 resides 
operations; this information is given in 
the section “Program Optimization." LABEL - label specification 
DISP - the status of the data set at the 

Examples of DD statements used to create beginning of the step and the 

data sets are shown in Figure 33. | disposition of the data set after 


the completion of the step 
To create data sets, the DSNAME, UNIT, 
VOLUME, SPACE, LABEL, DISP, SYSOUT, and DCB SYSOUT - ultimate device for printer data 
parameters are of special significance (see sets 
Figure 34). These parameters specify: 
DCB = tape density, record format, 
record length 
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Figure 33. Examples of DD Statements for Creating Data Sets 
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ds name 
DSNAME=edsname( element) 
&name 


&name(element) 
DUMMY 
DDNAME=ddname 


UNIT=(name[ , {n|P}1*])? 


VOLUME=( {PRIVATE J[ ,RETAIN][ ,volume-sequence-number ][ ,volume-count] 


TRK 
SPACE=(4 CYL 
average-record-length 


» IN 


WNL Exp OT=yyddd] 9 
LABEL=([data-set-sequence-number] < ,SL , OUT 
»BLP 


RETPD=xxxx 


SYSOUT=A 
SYSOUT=B 
SYSOUT=(X[,program-name ][,form-no. }) 


»DELETE |9 |,DELETE 


NEW )] KEEP , KEEP 
prsp=() OLD {| ‘pass "CATLG |)? 
MOD (| CATLG , UNCATLG 


SHR J! UNCATLG 


ds name (° C 

_¢ |*.ddname _J 1 _JE 

DcB=( * .s tepname .ddname uN E Pea: 
.stepname.procstep.ddname 3 ET, 















1If neither "n" nor "P" is specified, 1 is assumed. 


7A1l1 subparameters are positional subparameters. 


Figure 34. 


DATA SET NAME 


name 
Only four forms of the 


The DSNAME parameter specifies the 
of the data set. 


DSNAME parameter are used to create data 
sets. 
DSNAME=dsname 
DSNAME=dsname (element) 
specify names for data sets that are 


created for permanent use. 


Note: Members of a partitioned data 
set may be read as input to a FORTRAN 
object program or created as output 
from a FORTRAN object program, but 
only when the member name and either 
LABEL=(,,,IN) or LABEL=(,,,OUT) are 


 s(orinary-quantty{secondary-quantityIE directory-quontty])[,RLSE]| sa 
CONTI 


2If only "name" is specified, the delimiting parentheses may be omitted. 

3If only one "volume-serial-number" is specified, the delimiting parentheses may be omitted. 

“SER and REF are keyword subparameters; the remaining subparameters are positional subparameters. 
SThe assumption made when this subparameter is omitted is discussed with the SPACE parameter. 
SROUND can be specified only if “average-record-length" is specified for the first subparameter. 


SEXPDT and RETPD are keyword subparameters; the remaining subparameters are positional subparame ters . 
©The assumption made when this subparameter is omitted is discussed in "Job Control Language. 

140BUFNO is the only DCB subparameter that should be specified for direct access data sets. 

4The first subparameter is positional; all other subparameters are keyword subparameters. 

12This form is used only with compiler and linkage editor blocked input and output. 


“SER=(volume-serial-number[ ,volume-serial-number]...)3 


ds name 


,REF=)*.ddname eg 


* .s tepname.ddname ( 


*.s tepname.procstep.ddname | 


MXIG j5 
[ ,ROUND ]®)7 
G 


«2 


1)10 CF [U2 CAIMICT IE sBLKSIZE x04] 
Leurvo-(3) |c.0etc0-c1 »RECFM=4VL Wile ee 11 


{F|V}BLA|MJ[T] ,LRECL=xxxx ,BLKSIZE=xxxx 


»BLKSI ZE=xxxx 12 


DD Parameters for Creating Data Sets 


specified in the associated DD 


Statement. 


oe \ 
DSNAME=éname (element) 
specify data sets that are temporarily 
created for the execution of a single 
job or job step. 


DUMMY 
is specified in the DD statement to 
inhibit write operations specified for 
the data set. The WRITE statement is 
recognized, but no data is transmit- 
ted. (When the programmer specifies 
DUMMY in a DD statement used to over- 
ride a cataloged procedure, all param- 
eters in the cataloged DD statement 
are overridden.) The FORTRAN program- 
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20 me atta ne maitepi eeONtann 20 be hn bstneammtanacenttnt gen 


mer Should not specify DUMMY for a  VOLUME=( [PRIVATE] {,RETAIN] 
data set that is to be read; an end of 


data set condition results, and the [, volume-sequence-number] 
execution of the load module is termi- 
nated. (, volume-count] 
DDNAME=ddname , OER=(volume-serial-number 
indicates a pseudo data set that will [, volume-serial-number]...) 
assume the characteristics specified 
in a subsequent DD statement "ddname." dsname 
The DD statement identified by ,REF= )*.ddname ) 
"ddname" then loses its identity; that *.,stepname.ddname 
is, the statement cannot be referred *.,stepname.procstep.ddname 


to by an *....ddname parameter. The 

statement in which the DDNAME parame- | 

ter appears may be referenced by sub- identifies the volume(s) assigned to the 
sequent *....ddname parameters. If a data set. 

subsequent Statement identified by 

"ddname" does not appear, the data set 

defined by the DD statement containing PRIVATE 


the DDNAME parameter is assumed to be indicates that the assigned volume is 
an unused statement. The DDNAME pa- to contain only the data set defined 
rameter can be used five times in any by this DD statement. PRIVATE is 
job step or procedure step, but no two overridden when the DD statement fora 
uses can refer to the same "ddname." data set requests the use of the 
The DDNAME parameter is used mainly private volume with the SER or REF 
for cataloged procedures (as shown in subparameter. 


Figure 50 in the section "Cataloged 
Procedures"). 
RETAIN 
indicates that this volume is to 
remain mounted after the job step is 
completed. (Unless RETAIN is .speci- 
fied, the volume is dismounted after 
its last use in the job step.) 
Volumes are retained so that data may 
SPECIFYING I/O DEVICES be transmitted to or from the data 
: set, or so that other data sets may 
reside on the volume. If the data set 


The name of an input/output device or requires more than one volume, only 
class of devices and the number of devices the last volume is retained; the other 
are specified in the UNIT parameter, volumes are dismounted when the end of 

the volume is reached. If each job 
step issues a RETAIN for the volume, 
UNIT=(namel[, {n]P}]) the retained status lapses when execu- 


tion of the job 1s completed. 
name 
is given to the input/output device 
classes when the system is generated. 


volume-sequence-number 


{n]P} is a one-to-four digit number that 
specifies the number of devices allo- specifies the sequence number of a 
cated to the data set. selected volume at which processing is 


to begin. All volumes whose sequence 
numbers precede the specified number 
are omitted from processing. Specifi- 
cation of the volume-Sequence-number 
is useful only when the programmer is 
reading Or writing a muiti-volume 
cataloged data set. 
SPECIFYING VOLUMES 


volume-count 


The programmer indicates the volumes specifies the number of volumes 
used for the data set in the VOLUME parame- required by the data set. Unless the 
ter. SER or REF subparameter is used, this 
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Subparameter is required for 
multi-volume output data set. 


every 


SER 

specifies which volumes are used for 
the data set by specifying the volume 
serial number for each specific 
volume. (The volume serial number is 
assigned and placed on the volume when 
the volume is made ready for use by 
the installation.) A volume serial 
number consists of one to six alpha- 
meric characters. If it contains 
fewer than six characters, the serial 
number is left-adjusted and padded 
with blanks. If SER is not specified, 
and DISP is not specified as NEW, the 
data set is assumed to be cataloged 
and serial numbers are retrieved 
from the catalog. A volume serial 
number need not be specified for an 
output data set. 


REF 

indicates that the data set is to 
occupy the same volume(s) as the data 
set identified by "dsname", 
"*,ddname", "*,.stepname.ddname", or 
"*,stepname.procstep.ddname." Table 9 
shows the data set references. 


When REF is specified and the data set 
resides on a tape volume, the data set 
is placed on the same volume, immedi- 
ately behind the data set referred to 
by this subparameter. When this sub- 
parameter is used, the UNIT parameter 
may be omitted. 


If SER or REF is not specified, the 
control program will allocate any non- 
private volume that is available. 


Data Set References 


]A data set named | 
| }"dsname". j 
JA data set indicat-] 
| Jed by DD statement | 
j | "ddname" in the | 
| jcurrent job step. ] 
Seay ca ee aI ec Me PE ERTL PE ERI IEE MIEON) BEM prre en SOE Or ee an i ny Ere r 
| REF=*.stepname.ddnamejJA data set indicat-| 
} jed by DD statement |} 
| ]}]"ddname" in the jobf 
] }step "“stepname". | 
|] REF=*. stepname. }A data set indicat-] 
| procstep.ddname]ed by DD statement | 
] }"ddname" in the } 
| J procedure step | 
| |"procstep" invoked | 
} Jin the job step | 
} }"stepname". ] 
ede eee oe ee es J 


SPECIFYING SPACE ON DIRECT ACCESS VOLUMES 


The programmer indicates, in the SPACE 
parameter, the space to be allocated ona 
volume to a direct access data set. 


TRK 
SPACE= (< CYL ; 
laveragesececed= tener 
(primary-quantity 
[, secondary-quantity] 
[,directory-quantity]) 
,MXIG 


, ALX 
, CONTIG 


[, RLSE] [, ROUND]) 


specifies space on a direct access volume. 
Although SPACE has no meaning for tape 
volumes, if a sequential data set is 
assigned to a device class that contains 
both direct access devices and tape de- 
vices, SPACE should be specified. The 
SPACE parameter specifies: 


1. Units of measurement in which space is 
allocated. 


2. Amount of space allocated. 


3. Whether unused space can be released. 


4. In what format space is allocated. 


5. Whether space is to begin on a cylind- 
er boundary. 


ior 

CYL 

average-record-length 
specify the units of measurement in 
which storage is assigned. The units 
may be tracks (TRK), cylinders (CYL), 
or records (average record length 
expressed in decimal numbers). 


(primary-quantity[,secondary-quantity] 
{, directory-quantity]) 
specify the amount of space allocated 
for the data set. The “primary quan- 
tity" indicates the number of records, 
tracks, or cylinders allocated when 
the job step begins. The "secondary 
quantity" indicates the amount of 
Space to be allocated each time  pre- 
viously allocated space is exhausted. 
The operating system can allocate 
additional Space specified in the 
secondary quantity 15 times. The 
"directory quantity" is used only when 
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writing a PDS, and it specifies the 
number of 256-byte records to reserve 
for the directory of the PDS. 


For example, by specifying: 
SPACE= (120, (400,100) ) 


Space is reserved for 400 records; the 
average record length is 120 charac- 
ters. Each time space is exhausted, 
space for 100 additional records is 
allocated. 


By specifying the following, 20 cylin- 
ders are allocated to the data set: 


SPACE=CYL, (20, 2,5)) 


allocated 

additional cylinders 
are allocated. In addition, space is 
reserved for five records in the di- 
rectory of a PDS. 


When previously Space is 


exhausted, two 


Note: When the FORTRAN programmer 
uses a direct access data set, he must 
allocate space on the direct access 
volume in two places: the DEFINE FILE 
statement in the source module and a 
DD statement at load module execution. 
He must also make certain that the DD 
statement SPACE parameter contains an 
adequate SPACE allocation, based on 
the value specified in the DEFINE FILE 
statement. 


RLSE 
indicates that all unused external 
storage assigned to a NEW or MOD 
output data set is released when the 
data set is closed in a job step. 


MXIG 

ALX 

CONTIG 
specify the format of the space allo- 
cated to the data set. MXIG requests 
the largest single block of storage 
that is greater than or equal to the 
Space requested in the "primary quan- 
tity." ALX requests up to five conti- 
guous blocks of storage, each block 
greater than the "primary quantity." 
CONTIG requests that the space indi- 
cated in the “primary quantity" be 
contiguous. 


If the subparameter is not specified, 
or if any option cannot be fulfilled, 
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the operating system attempts to 
assign contiguous space. If there is 
not enough contiguous space, up to 
five noncontiguous areas are 
allocated. 

ROUND 


indicates that allocation of space for 
the specified number of records is to 
begin and end on a cylinder boundary. 


Note: The SPACE parameter in the DD 
statement must be used if a data set 
might be written on a direct access 
device. For the compiler, the pro- 
grammer should aliow 150 characters 
per source statement in the "primary 
quantity" for each data set except 
SYSPRINT. For SYSPRINT, he should 
allow approximately 220 characters per 
source statement. 


LABEL INFORMATION 


If the programmer wishes to catalog a 
data set so that he can refer to it without 
repeating information (record type, record 
length, number of buffers, etc.) that was 
supplied when the data set was created, he 
must specify certain information in the 
LABEL parameter. If the parameter is 
omitted and the data set is passed, the 
label information is retrieved from data 
set labels stored with the data set. 


,NL 
LABEL= ( [(data-set-sequence-number] fe 
Pp 


, BL 
,IN | |, EXPDT=yyddd | 
, OUT) |, RETPD=xxxx ) 


data-set-sequence-number 
is a 4-digit number that identifies 
the relative location of the data set 
with respect to the first data set on 
a tape volume. (For example, if there 
are three data sets on a magnetic tape 
volume, the third data set is identi- 
fied by data set sequence number 3.) 
If the data set sequence number is not 


specified, the operating system 
assumes 1. (This option should not be 
confused with the volume sequence 


number, which represents a particular 
volume for a data set.) 
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NL 
SL 
BLP 


EB 
OUT 


IN 


\ 
j 


set label information 

Standard labels which 
contain information such as record 
format, buffer length, dates, density, 
and identifiers for the data set. NL 
indicates no labels. BLP indicates 
that label processing is to be 
bypassed. 


specify data 
SL indicates 


The feature that allows bypassing of 
label processing is a system genera- 
tion option (OPTIONS=BYLABEL). If 
this option has not been specified and 
BLP is coded, the system assumes NL. 


are used to control data sets that are 
to be processed as input or output 
only. A form of read/write protection 
is offered by these subparameters. 


For input data sets, the IN 


meter allows: 


subpara- 


e Access to members of a partitioned 
data set (for read purposes only). 


e A means of avoiding operator inter- 
vention when reading a data set that 
is protected by either a high 
expiration date or by the absence of 
the write-ring (file-protected 
tape). 


For output data sets, the OUT subpara- 
meter allows a member of a partitioned 
data set to be created. 


specifies that the data set is to be 
processed for input only. IN will be 
recognized only if the first input/ 


output operation specifying the data 
set is a READ. If the first operation 
is not a READ, the IN subparameter has 


no effect and both READ/WRITE opera- 
tions are allowed. When the first 
Operation is a READ, any subsequent 


WRITE issued to the data set will be 
treated as an error, and the job will 
be terminated. Additionally, the spe- 
cification of IN permits the reading 
of a password-protected data set (if 
the correct password is supplied), and 
avoids the need of operator interven- 
tion when reading a data set protected 
by either a high expiration date or 
the absence of a write-ring. 


OUT 


specifies that the data set defined by 
the DD statement is to be recognized 
only if the first input/output opera- 
tion specifying the data set is a 
WRITE. If the first operation is not 
WRITE, the OUT subparameter has no 
effect and both READ/WRITE operations 
are allowed. However, the creation of 
a member of a partitioned data set is 
not allowed when the first operation 
is READ, even though the OUT subpara- 
meter was specified. When the first 
operation is a WRITE, any subsequent 
READ issued to the data set will be 
treated as an error, and the job will 
be terminated. OUT must be specified 
to create a member of a partitioned 
data set. 


RETPD=xxxx 


[exeptavyaddl 


specify how long the data set shall 
exist. The expiration date, EXPDT= 
yyddd, indicates the year (yy) and the 
day (ddd) the data set can be deleted 
by the DELETE subparameter in the DISP 
parameter. The period of retention, 
RETPD=xxxx, indicates the period of 
time, in days, that the data set is to 
be retained. If neither is specified, 
the retention period is assumed to be 
ZELO. 


DISPOSITION OF A DATA SET 


The disposition of a data set is speci- 
fied by the DISP parameter; (see “Data 
Definition (DD) Statement. )" The same 
options are used for both creating data 
sets and using previously created data 
sets. 


WRITING A UNIT RECORD DATA SET ON AN 
INTERMEDIATE DEVICE 


A printed output data set may be written 
on an intermediate device and 


subsequently 


written on the printer (ultimate device). 


SYSOUT=A 

indicates that the ultimate destina- 
tion for printed output data sets is 
the printer. 
Note: For SYSOUT data sets, if the 
DEN subparameter is specified, only 
DEN=2 can be specified. 
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DCB PARAMETER 


ene CE cnn etn etneS eng EO CS NE EY A 


For the compiler or linkage editor, the 
length of a block can be specified. For 
load module execution, the FORTRAN pro- 


grammer may specify record formats, record 
lengths, and the number of buffers for 
sequentially organized data sets that 


reside on magnetic tape or direct access 
volumes. For direct access organized data 
sets, only the number of buffers can be 
specified; any other specifications are 
ignored. The DCB information is placed in 
the labels for these data sets. 


dsname 
DCB= (| *. ddname 
*. stepname. ddname 
*,. Stepname. procstep. ddname 


[, DEN={0]1]2] 33]{, TRTCH={C|E]T|ET}] 
{, BUFNO={1] 23] 


{F]U} (A]MIJ(T] 
{, BLKSIZE=xxxx] 
» RECFM= /V{A|M] [TT], LRECL=xxxx 
, BLKSIZE=xxxx 
{F| V3} B(A|M] (T], LRECL 
=xXxXXxX, BLKSIZE=xXxxx 


[, OPTCD=C] 


, BLKSIZE=xxxx 


REFERRING TO PREVIOUSLY SPECIFIED DCB 
INFORMATION 


The first subparameter 


dsname 

*,ddname 

*,stepname. ddname 
*,stepname. procstep. ddname 


is used to retrieve DCB parameter informa- 
tion from previously created data sets. 
The DCB information specified for the data 
set referred to by this subparameter is 
copied by the control program for use in 
processing the data set defined by the DD 
statement in which this subparameter 
appears. Any subparameters in the DCB 
parameter that follow this  subparameter 
override any copied DCB subparameters. 
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dsname : 
indicates that the DCB subparameters 
of a cataloged data set "dsname" are 
copied and used as the DCB parameters 
for this data set The data set 
indicated by "“dsname" must be current- 
ly mounted, and it must reside ona 
direct access volume. 


*, ddname 
indicates that the DCB parameter in a 
preceding DD statement "ddname" in the 
current job step is copied. 


*. stepname. ddname 
indicates that the DCB parameter ina 
DD statement “ddname" that occurs ina 
previous job step "“stepname" in the 
current job is copied. 


*, stepname. procstep. ddname 
indicates that the 
the DD statement "“ddname" is copied 
from a previous step "procstep"™ ina 
cataloged procedure. The procedure 
was invoked by the EXEC statement 
"stepname" in the current job. 


DCB parameter in 


DENSITY AND CONVERSION 


The second subparameter indicates the 


density and conversion for tape volumes. 





DENSITY: Density is only specified for 
data sets residing on magnetic tape 
volumes. 


DEN={0]1]2[3]} 


Table 10 
numbers QO, 1, 


correlates 
2, and 3. 


density with the 


Table 10. DEN Values for Model 2400 

eae De ee ee 1 
| }Tape Recording Density (bits/inch) | 
| DEN }~~-~-------------- Tanne { 
| Value | 7 Track | 9 Track | 
}--~--}------------------ }---------------- { 
; oO | 200 | = | 
} 1 | 356 | - | 
{j 2 | 800 | 800 | 
f <3 4 = | 1600 | 
eeu hoe ees eet eee Oe sien ase oe ek J 
Note: If SYSOUT=A is specified, DEN=2 is 


the only DEN option that may be specified. 
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CONVERSION: Conversion is used only for 
data sets residing on 7-track tape volumes. 


TRICH={C|E] T|ET} 
indicates 
used: 


which conversion type is 


C - data conversion feature is used 
E - even parity is used 


T - translation from BCD to EBCDIC or 
EBCDIC to BCD is required 


ET - even parity is used and transla- 
tion from BCD to EBCDIC is 
required 


CHAINED SCHEDULING 


Chained scheduling may be requested by 
specifying OPTCD=C as a DCB subparameter in 
the DD statement. Although chained _ sche- 
duling is not used for direct access I/O 
itself, it does produce faster formatting 
of direct access data sets. When chained 
scheduling is specified, the system makes 
use of about 2K additional bytes of main 
storage to provide the feature. 


RECORD FORMAT 


RECFM=ULA|M] IT] 
RECFM=V{B] {A]MI][T] 
RECFM=F{B] [LA|MIJI[T] 

The characters V, F, U, and B represent 


whose 
can vary throughout the data 


V - variable-length records (records 
length 
set) 


F - fixed-length records (records whose 
length is constant throughout the data 
set) 


U - undefined records (records that do not 
conform to either the fixed-length or 
variable-length format) 

B - blocked records 


Note: For blocked compiler and linkage 
editor I/0, RECFM should not be specified. 


The character A indicates the use of the 
FORTRAN carriage control characters; the 
character M indicates the use of machine 
code control characters. 


The character T specifies the use of the 
track overflow feature. Use of this fea- 
ture results in more efficient utilization 
of track capacity and allows records to be 


written when the specified block size 
exceeds track size. RECFM subparameter 
specifications, and the type of processing 


associated with each, follow: 


RECFM=UT Formatted Sequential I/0 

RECFM=VT Formatted or Unformatted Sequen- 
tial I/0 

RECFM=FT Direct Access I/O or Formatted 
Sequential I/O 

Note: Backspacing is not allowed when 





track overflow is specified. Therefore, a 
FORTRAN program using the track overflow 
feature may not contain the BACKSPACE 
statement. 


RECORD LENGTH, BUFFER LENGTH, BLOCK LENGTH, 
AND NUMBER OF BUFFERS FOR SEQUENTIAL DATA 
SETS 


For blocked records used by the compiler 
or linkage editor, the length of a block is 
specified by the buffer length which is 
specified by 


BLKSIZE=xxxx 
The record length 


specified by the 
editor. 


(LRECL) is permanently 
compiler or linkage 


For unblocked 
piler or linkage 
BLKSIZE and 
specified. 


records used by the com- 
editor, the values for 
LRECL are permanently 


For unblocked fixed-length records or 
undefined records used during load module 
execution, the record length and the buffer 
length are specified by 


BLKSIZE=xxxx 
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For unblocked variable-length 
the record length is specified by 


records, 


LRECL=xXxxx 
Buffer length is specified by 
BLKSIZE=XxXxx 

For blocked variable-length or fixed- 
length records used by load modules, the 
record length is specified by 


LRECL=xxxx 


Block length 
fied by 


and buffer length are speci- 


BLKSIZE=xxxx 
Undefined records cannot be blocked. 


Table 11 is a summary of the specifica- 
tions made by the programmer for record 
types and blocking in FORTRAN processing. 

The number of buffers required to read 
Or write any data set is specified by 


BUFNO=x (x=1 or 2) 


FORTRAN Records and Logical Records for 
sequential Data Sets 


In FORTRAN, records for sequential data 


sets are defined by specifications in 
FORMAT statements and by READ/WRITE lists. 
A record defined by a specification in a 
FORMAT statement is a FORTRAN record (see 


the section “Input/Output Statements" in 


A record defined by a READ/WRITE list is a 
logical record. Within each category, 
there are three types of records: fixed 

length, variable-length, and undefined. In 
addition, fixed-length and variable-length 
records can be blocked. 


unformatted READ and WRITE state- 
the logical record, as defined by 


For 
ments, 


the I/O list, is placed into physical rec- 
ords and, if required, the logical record 
is spanned over physical records. When 
spanning occurs, FORTRAN library routines 
do not split-write an item over the span 


even if there is enough room in the buffer 
to accomodate part of the item. However, 
FORTRAN does provide the ability to read 
items split across segments. 

UNBLOCKED RECORDS, FORMAT CONTROL: For 
fixed-length and undefined records, the 


record length and buffer length are speci- 
fied in the BLKSIZE subparameter. For 
variable-length records, the record length 
is specified in the LRECL subparameter; the 


buffer length is specified in the BLKSIZE 
subparameter. The information coded in a 
FORMAT statement indicates’ the FORTRAN 


record length (in bytes). 


Fixed-Length Records: For unblocked fixed- 


length records written under FORMAT con- 
trol, the FORTRAN record length must not 
exceed BLKSIZE (see Figure 35). 
Example: Assume BLKSIZE=44 
10 FORMAT (F10.5,16, 2F12.5, ‘SUMS') 

WRITE (20, 10) AB, NA, AC, AD 
(oS re ee BLKSIZE SS SSS ee SSS ] 
| | 
Joie cae ai FORTRAN Recotd Sees 4 


44 Bytes of Data 


Figure 35. FORTRAN Record (FORMAT Control) 
Fixed-Length Specification 
If the FORTRAN record length is less 
than BLKSIZE, the record is padded with 
blanks to fill the remainder of the buffer 
(see Figure 36). The entire buffer is 
written. 
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Table 11. Specifications Made by the FORTRAN Programmer for Record Types and Blocking 
eee rer Ce ee COR oe ee ee aaa aaa ea ee More ae er eae De ee eee 1 
| | | | | 
| ] Blocked or | | RECFM | | | 
| Step ]} Unblocked | Record Type |Specification |Record Length |Buffer Length | 
| | ( | | | 
{oar raae BENS TE Se peeraernennc aaa _ Rene PTET] ReMaIERRNTI as UNGER PTET 
|} Compiler or] Unblocked |Fixed-Length [not specified?]not specifiedt|not specified? | 
| Linkage = f------------- 4--------------- 4--------------4--------------4-------------- { 
| Editor }] Blocked | Fixed-Length | RECFM=FB2 Jnot specified1|BLKSIZE=xxxx | 
}------------ $------------- $--------------- }--------------}--------------}-------------- { 
| | | Fixed-Length | RECFM=F3 | BLKSIZE=xxxx? | | 
| Jo ewe en ne n--=---4--------------4-------------- | | 
| ] Unblocked |Variable-Length|RECFM=V |] LRECL=xxxx | | 
| |------~--------}--~----------- {-------------- | 
{| Load Module] | Undefined | RECFM=U | BLKSIZE=xxxx |BLKSIZE=xxxx | 
| Execution j------------- 4--------~------- 4+-----~-----~--- 4+-----~--~------- 4 | 
| ] | Fixed-Length | RECFM=FB | | | 
| 000 Prem rn ee en en 4 LRECL=xxxx | | 
| | Blocked | Variable-Length]| RECFM=VB | | | 
| | }---------------4-------------- 4---------~---- 4-------------- { 
| ] | Undefined |Blocked undefined records are not permitted | 
[--~---~---~--- Be Spe at bene ee oem aE Acs mere ae OR a SN a Se ee ae a ee { 
| +Permanently specified by the compiler and cannot be altered. | 
|} 2For SYSPRINT or other written output, RECFM=FBA under the sequential scheduler, and | 
| RECFM=FM under the priority scheduler. | 
| 3Not specified for:direct access data sets. | 
Ba oe a a ts hs a na a ee ac cle catalina Daa eS J 
Example: Assume BLKSIZE=56 fe ey ee Se ere, ye. tees ee : 
| 
| 
5 FORMAT (F10.5,16,F12.5, *TOTAL') Pt pee a eee : 
ends FORTRAN Record — — — — ——— 1 
| | | 
| | | | 
-o-- roa BLKSIZE — — — — — — —— — — 7 
oe ee eee Se ee: Written Record. SS Santee ae Se ee { 
| Figure 37. FORTRAN Record (FORMAT Control) 
Variable-Length Specification 


33 Bytes of Data 23 Bytes of Blanks 


FORTRAN Record (FORMAT Control). 
With Fixed-Length Specification 
and FORTRAN Record Length Less 
Than BLKSIZE 


| 
| 
[- —— — FORTRAN Record — — — =) | 
| 
Figure 36. 


i1able-Len For unblocked 
variable-length records written under FOR- 
MAT control, LRECL is specified as four 
greater than the maximum FORTRAN record 
length and BLKSIZE as four greater than 
LRECL. These extra eight bytes are 
required for the 4-byte block control word 
(BCW) and the 4-byte segment control word 
(SCW), as shown in Figure 32. The BCW (see 
Figure 37) contains the length of the 
block; the SCW (see Figure 38) contains the 
length of the record segment; i.e., the 
data length plus four bytes for the SCW. 
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If the FORTRAN record length is’ less 
than (LRECL-4), the unused portion of the 
buffer is not written (see Figure 38). 


Ga es See eS BLKSIZE — — — —— ——— -—- —-— : 

r —— —— — Written Record — — — — — 7 | 

| | 

I ee ioe REC Se a a 
| 

| | 

| | 

| | 


| 
| 7 FORTRAN Record — — —- 
| 


FORTRAN Record (FORMAT Control) 
With Variable-Length Specifica- 
tion and the FORTRAN Record 
Length Less Than (LRECL-4) 


Figure 38. 


Undefined Records: For undefined records 
written under FORMAT control, BLKSIZE is 
specified as the maximum FORTRAN record 
length. If the FORTRAN record length is 


less than BLKSIZE, the unused portion of 


the buffer is not written (see Figure 39). 
ep semtiay Sa ge ee BLK G Ze SSS 

| 

= oe = CPORTRAN Record SS > 


FORTRAN Record (FORMAT Control) 
With Undefined Specification 
and the FORTRAN Record Length 
Less Than BULKSIZE 


Figure 39. 


BLOCKED RECORDS, FORMAT CONTROL: For all 
blocked records, the record length is spec- 
ified in the LRECL subparameter; the block 


length and buffer length in the BLKSIZE 
Subparameter. 

Fixed-Length Records: For blocked fixed- 
length records written under FORMAT 
control, LRECL iS specified as maximum 


possible FORTRAN record length, and BLKSIZE 
must be an integral multiple of LRECL. If 
the FORTRAN record length is less than 
LRECL, the rightmost portion of the record 
is padded with blanks (see Figure 40). 


Example: Assume BLKSIZE=48 and LRECL=24 
10 FORMAT (18, F16.4) 


20 FORMAT (I12) 


WRITE (13,10)N,B 


WRITE (13, 20)K 


- —_—-— Te —Written Block — —— -—- = > 7 + 
b- —- —— — LRECL — —— — — + -rero LRECL — = = 
| Ef FORTRAN | 
E> = PORTRAN Record a Reg , 


| | | 
12 12 Bytes 


Data Bytes of 


24 Data Byt 
ai Blanks 





Fixed-Length Blocked Records 
Written Under FORMAT Control 


Figure 40. 


Variable-Length Records: FOr blocked 
variable-length records written under 


FORMAT control, LRECL is specified as four 
greater than the maximum FORTRAN record 
length, and BLKSIZE must be four plus an 
integral multiple of LRECL. The four addi- 


tional bytes allocated with BLKSIZE are 
required for the block control word that 
contains the block length. The four addi- 


tional bytes allocated with LRECL are used 
for the segment control word that contains 
the record-length indicator. 


If a WRITE statement is executed and the 
amount Of Space remaining in the present 
buffer is less than LRECL, only the filled 


portion of this buffer is written (see 
Figure 37); the new data goes into the next 
buffer. However, if the space remaining in 


a buffer is greater than LRECL, the buffer 
is not written, but held for the next WRITE 


statement (see Figure 41). If another 
WRITE statement is not executed before the 
job step is terminated, then the filled 


portion of the buffer is written. 
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Example: Assume BLKSIZE=28 and LRECL=12 
30 FORMAT(I3,F5.2) 

40 FORMAT (F4.1) 

50 FORMAT (F7. 3) 


WRITE(12,30)M,Z 


WRITE(12,40)V 


WRITE(12,50)Y 





(-—--------- BLKSIZE — —— —— ——-———— : 
| | 
-K-— — — — — — Written Block = SS SS 7 | 
| | 
! SSS SiC = a a Se RECh ! 
| | 
| 
| 1 FORTRAN Record ——4 — -- FORTRAN _, | 
| | | Record | | 
| | { | Nees tS | 
4 4 Bytes 
BCW|SCW 8 Data Bytes Scw] _—Data Not | 
Bytes Written | 
sacs sean “eins eee J 






(- —- FORTRAN Record— — 
| 


- 7 Data Bytes 


Variable-Length Blocked Records 
Written Under FORMAT Control 






This space of 13 bytes 
Ready for next WRITE. 
(space > LRECL) 





Figure 41. 


NO FORMAT CONTROL: Only variable-length 
records can be written without format con- 
trol; i.e., the RECFM subparameter must be 
V. (If. nothing is specified, V is 
assumed. ) 


Records written without FORMAT control have 
the following properties: 


e The length of the logical record is 
controlled by the type and number of 
variables in the I/O list of its asso- 
Ciated READ or WRITE statement. 


record can be physically 
recorded on an external medium as one 
Or more record segments. Not all seg- 
ments of a logical record must fit into 
the same physical record (block). 


A logical 


e Three quantities control the manner in 
which records are placed on an external 
medium: the block size (as specified by 
the BLKSIZE parameter), the segment 
length (as specified by the LRECL 


60 


parameter), and the logical record (as 
defined by the length of the I/O list). 
BLKSIZE and LRECL are specified as part 
of the DCB parameter of the data defi- 
nition (DD) statement. If not speci- 
fied, FORTRAN provides default values. 


with a 
each 


Each block begins 
control word (BCW); 


4-byte block 
segment begins 


with a 4-byte segment control word (SCW). 
The SCWs and BCWS are provided by the 
system. 

The format of a BCW is given in Figure 
42. 
Ga a a a a 1 
| block-length | reserved 
ree eras ee Re ee nen en ASR LC eer Mn eee ee gE Ree re Re ea J 

2 bytes 2 bytes 


Figure 42. Format of a Block Control Word 


where: 


block-length 
is a binary count of the total number 
of bytes of information in the block. 
This includes four bytes for the BCW 


plus the sum of the segment lengths 
specified in each SCW in the block. 
(The permissible range is from 8 to 
32,767 bytes.) 

reserved 
is two bytes of zeros reserved for 


system use. 


The format of an SCW is given in Figure 
43. 
CR ere ee ee ee ey re 1 
| segment-length | code | reserved | 
Pe aie ye mn eevee ener nme Omen Cope ee Reaper ee, Iara rere ee ee J 
2 bytes 1 byte 1 byte 


Format of a 
word 


Figure 43. Segment Control 


where: 


segment-length 
is a binary count of the number of 
bytes in the SCW (four bytes) plus the 
number of bytes in the data portion of 
the segment following the SCW. (The 
permissible range is from 4 to 32,763 
bytes.) 


code | 
indicates the position of the segment 
with respect to the other segments (if 
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any) of the record. Bits 0 through 5 
are reserved for system use and are 
set to 0. Bits 6 and 7 contain the 


codes: 

Code Meaning 

00 This segment is not followed or 
preceded by another segment of 
the record. 

O01 This segment is the first of a 
multi-segment record. 

10 This segment is the last of a 
multi-segment record. 

11 This segment is neither the 
first nor last of a muilti- 
segment record. 

reserved 

is a byte of zeros reserved for system 

use. 


ock ds For unblocked records 
written without FORMAT control, the value 
Of BLKSIZE is equal to LRECL+4, (The four 
additional bytes are for the BCW.) 


If the logical record length is less 
than or equal to LRECL-4, the logical 
record comprises one record segment. 
Hence, for the associated READ or WRITE 
Statement, one record segment, i.e€., one 
block, is transmitted (see Figure 44). 
Note that the unused portion of the block 
is not transmitted. 


If the logical record length is greater 
than LRECL-4, the logical record comprises 
N record segments, where: 


N=logical record length/LRECL-4. 


the associated READ or WRITE 
record segments, i.é., N 


Hence, for 
Statement, N 


blocks, are transmitted (see Figure 45). 
Example 1: Assume BLKSIZE=28 and LRECL=24 


WRITE(18)0,R 


where: 
Q and R are real *8 variables. 


a ne Om ere nee ene ae era Dies st ch ee 
e BLKSI z 
| | 
| a RECS a ee 4 
| ! | 
| SSS = Logical Record — — — — — | ! 

— | 
Abytes 4 bytes 16 bytes 4 bytes 

Figure 44, Variable-length Unblocked Rec- 


ords, No FORMAT Control, 
Record Segment 


One 


Example 2: Assume BLKSIZE=28 and LRECL=24 
WRITE(18)0,R,S,V,X 
where: 

QO, R, and V are real *8 variables. 


S and X are real *4 variables. 


ici eee — BLKSIZE —————————— 1 
| zl 
| pe ee ee re TREC ES ee 
| | | 
| i a Beginning of Logical Record — — — — — — e 
4bytes 4 bytes 20 bytes 
[— — ——-——End of Logical Record — — — a 
| 
Abytes 4 bytes 12 bytes 8 bytes 
Figure 45. Variable-length Unblocked Rec- 
ords, No FORMAT Control, Two 
Record Segments 
Blocked Records: For blocked records writ- 


ten without FORMAT control, each block, 
except the last, is composed of at least M 
record segments, where: 


M = BLKSIZE-4/LRECL 


If the 
than or 


logical record length is less 
equal to LRECL-4, the logical 
record comprises one record segment. 
Hence, for the associated READ or WRITE 
Statement, one block, i.e., M record seg- 
ments, is transmitted. 


If the logical record length is greater 
than LRECL-4, the logical record comprises 
N record segments, where: 


N=logical record length/LRECL-4. 
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Hence, for the associated READ or WRITE 
statement, N record segments (1 e., as 
many blocks of M segments each as are 


needed to make up N segments) are trans- 
mitted. The unused portion of the last 
block is held for the next READ or WRITE 
(see Figure 46). 


Example: Assume BLKSIZE=28 and LRECL=12 
WRITE(18)A 
WRITE(18)B 
WRITE(18)E 
where: Ais a real *8 variable. 
B and E are real *4 variables. 
Pees TCL aS LRECL ————— 


l | 
a — Logical Record — <a Logical Record— —- | 
1 


Abytes 4 bytes 8 bytes 4 bytes 4 bytes 4 bytes 


f— — Logical Record ——- 


| I 


Abytes 4 bytes 4 bytes 16 bytes 


Figure 46. Variable-length, Blocked Rec- 


ords, No FORMAT Control 


BACKSPACE Operations 


Unblocked Records: For all unblocked rec- 
ords, written with or without FORMAT con- 
trol, the volume is positioned so that the 
last logical record read or written is 
transmitted next. 


Blocked Records: Blocked records are back- 
spaced ona logical record basis. Thus, a 
BACKSPACE may result ina deblocking opera- 
tion rather than in making a new physical 
record available. 
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Note: Logical records are usually synony- 
mous with the amount of data specified in 
the I/O list for the READ or WRITE state- 
ment that processes the record Thus, when 
there is no FORMAT control, the logical 
record may be spanned over. one or more 
physical records on the volume; however, 
FORTRAN treats only the logical record as 
an entity. For records written with 
FORMAT control, a single READ/WRITE state- 
ment may refer to or create several logical 
records. This occurs when there is a / 
character in the FORMAT statement or when 
the I/O list exceeds the FORMAT specifica- 
tions, causing the FORMAT statement to be 
used again from the first parenthesis. 


RECORD LENGTH, BUFFER LENGTH, AND NUMBER OF 
BUFFERS FOR DIRECT ACCESS DATA SETS 


data set can contain 
only fixed-length unblocked records. Any 
attempts to read or write any other record 
format by specification in the DCB parame- 
ter are ignored. The record length and 
buffer length for a data set are specified 
by the programmer as the record size in the 
DEFINE FILE statement, and cannot be 
changed by specifying the BLKSIZE or LRECL 
subparameters in the DCB parameter. For 
example, the following statement sets the 
record length and buffer length permanently 
at 152 bytes: 


A direct access 


DEFINE FILE 8(1000,152,E, INDIC) 


The direct access data set defined by this 
DEFINE FILE statement contains 1000 fixed- 
length unblocked records. Each record is 
152 bytes long, and is written under FORMAT 
control. 


The only DCB parameter that can be 
supplied for direct access data sets is the 
number of buffers: 


BUFNO=x 


where: 
x (1 or 2) is the number of buffers 
used to read or write the data set. 


For records written with FORMAT control, 
the record format is the same as for 
fixed-length unblocked records written with 
FORMAT control for sequential data _ sets. 
For records written without FORMAT control, 
the records must be specified as fixed- 
length and unblocked. These records do not 
contain a block control word or a segment 
control word. 
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Spanning Considerations 


For records written without FORMAT con- 
trol, the input/output list may exceed the 
logical record length (i.e., block size). 
In this case a new block is. started on 
output, and the next block is processed on 
input. If it is shorter than the record 
length, the remaining portion of the record 
is padded with zeros (see Figure 47). 


Note that the DEFINE FILE field xr (r=152 
in the preceding example) specifies the 
maximum size of each record ina data _ set. 


It is only when this size is exceeded by 
the I/0 list that Spanning occurs. 
Although FORTRAN allows the creation and 


retrieval of such records, this feature is 
not supported by other processors. Thus, 
data sets containing such records cannot be 
processed in other than FORTRAN Jobs. 


When spanning occurs, the FORTRAN 
library routines do not split-write an item 


over the span even if there is enough room 
in the buffer to accomodate part of the 
item. The same considerations apply to 
reading. 

Example: A DEFINE FILE statement has spe- 
cified the record length for a direct 


access data set as 20. This statement is 


then executed 


WRITE(9'IX)DP1,DP2,R1, R2 


where: 7 
DP1 and DP2 are double precision 
variables. 
R1 and R2 are real variables. 
IX is an integer variable that con- 
tains the record position. 
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SS Record Segment | —— — — -—-— 


I 
| 20 Data Bytes 


Record Segment 1+ Record Segment 5 = | Logical Record 


4 Data Bytes 16 Bytes of Zeros 


Logical Record (No FORMAT 
Control) for Direct Access 


Figure 47. 


BACKSPACE, END FILE, and REWIND opera- 
tions are ignored for direct access data 
sets. 


DCB RANGES AND ASSUMPTIONS 


For compilation, the LRECL value for the 
following data sets is fixed and cannot be 
altered by the programmer: 


Data Set LRECL Value 
SYSPRINT 121 
SYSIN 80 
SYSPUNCH 80 
SYSLIN 80 
If the PRFRM option is specified, the 
SYSPRINT, SYSIN, and SYSPUNCH compiler data 


sets can contain blocked records. If the 
higher level linkage editor (program name: 
IEWLE44O) is used, the SYSLIN data set can 
contain blocked records. 


The BLKSIZE value must be an integral 
multiple of the corresponding LRECL value 


Shown above. The maximum BLKSIZE value is 
limited only by the type of input/output 
device (see Table 12), except that for 


SYSLIN the maximum BLKSIZE value is 400 


with linkage editor IEWLE4¢40O. 


For load module execution, specifi- 
cations depend on record type. For F type 
records, the BLKSIZE value must be an 


integral multiple of the LRECL value; for V 
type records, BLKSIZE must be specified as 
4 + n x LRECL (where n is the number of 
records in the block); for U type records, 
no blocking is permitted. Note, too, that 
the BLKSIZE and LRECL range is limited only 
by the type of device used to directly 
write the data set (see Table 12). Load 
module DCB parameter default values are 
Shown in Table 13. 


Table 12. BLKSIZE Ranges: Device Considerations 

Ge er Bice rae aN Re gene eee te RN TT PE ee en ee Ce 1 
| Device Type | BLKSIZE Ranges | 
}~----------------- }-------------------------------- yoo 77+ 9-7 ------=---------- ~-------- { 
| | F and U Record Type | V Record Type | 
| | -------------------------------- }----------------------------------- 4 
| Card Reader | 1<x<80 | 9<x<80 | 
|------------------ {~------------------------------- }----------------------------------- { 
} Card Punch | 1<x<81 | 9<x<89 | 
}------------------ }-------------------------------- }----------------------------------- 4 
| Printer: | | | 
120 Spaces | 1<x<121 | 9<x<129 | 
| 132 Spaces | 1<x<133 | 9<x<141 | 
| 144 Spaces | 1<x<145 | 9<x<153 
}------------------ }-------------------------------- 4----------~------------------------ { 
| Magnetic Tape | 18<x<32,000 i 
eas ea ee Poa a eee eee ee | a a als Rs aes RC aM a gaa aaa CL 7 
| Direct Access: | Without Track Overflowt | With Track Overflow | 
| }-------------------------------- }----------------------------------- { 
| 2301 | 1<x<20,483 | 1<x<32, 763 | 
| 2302 | 1<x<4984 | 1<x<32,763 | 
| 2303 | 1<x<4892 | 1<x<32,763 | 
| 2311 | 1<x<3625 | 1<x<32, 763 | 
| 2314 | 1<x<7294 | 1<x<32,763 | 
}-——---+-----~------ ae Re er a er Re eee A eS en oe TO NTE 0 aaa ee ek ee Pro A ae POR epeny sary RPE EPO | 
| tI£ RECFM=V, the minimum block size is 9. | 
Mp a a ce a a i a a ee ee J 
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Table 13. Load Module DCB Parameter Default Values 


| 

| Data Set Ref- 
| erence Number 
| 


i pe ea Se eae ee ee eS 

l 1 

} pee ee eet os ea eta es, 

Nl 2 

+ deine My ee a aia ae a ae 
[ : 

f ic aces la di Whe Ne ae a et ren me 

l 4 

| : 

l : 

l . 

l 99 


aaa aa oe ees Mee ee eee eT T 
| Sequential Data Setst | 
 eeaearere nar emcees | CEE ec t 
ddname_ | RECFM {Default LRECL | 
3 | | or BLKSIZE | 
~--------- }--~----------}---------------}+------------ 
FTO1FO01 | F | 80 | F 
Seaew ee eee a ee bp eer re eee eee ee 
FTO2FOO1 |. F | 80 | F 
~--------- $-------------}---------------+ 
FTO3FO01 | UA2 | 133 | FA2 
--~------- +-------------}---------------}-+------------- 
FTO4YFOO1 | U | 800 | F 
. | : | . | - 
P | r | ‘ | : 
, | | : 
FTI9FOO1 | U | 800 | F 
eee de Gina ec si at eas elles area a ea eds Ae oes Gren ese eemieneaies 


ee eee ee ee ge ce ee ee ee ee ee eee ee ee 


| 
J 
| 
| 
| 


eee eae ee eee cee eee cm ce ce ete een eee ee em one eee me ee ee ce ee ee cee ee i ee eee ee ee ee 


oe a oe ce ee es ee es ee ee ee ee ce ee ee ete ee ee ces oe ee ee ee ee ee ee 


Or BLKSIZE 


| 
1 
l 
| 
! 
| 
1 
| 
I 
| 
| 
| 
| 
! 
| 
| 
pe te 


~—----------- {The value spec- 


ified as the 
maximum size of 
a record in the 
DEFINE FILE 
statement. 


12If the records have no FORMAT control, the default RECFM is V and the default LRECL 
ij is 4 less than BLKSIZE, where the default BLKSIZE is as specified in this table. 
||2The first character in each record is assumed to be a carriage control character. 


ee eee me ee eee eS ee ete ee ee ee ce) ee Gere eee Ge Ee eee Go em ER eS i ee eS a ae ee ee ue ED cate SEED cums eee CD ee come ee caw QED ee ee oem ee me ee ame eee ee ee oe ae cere ee eee cee eee que ere cum eee ae ee cee ae ee me eee cone come comm en que cane ce GER Ci ae ene GE em ce om am eee 
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This section contains figures 
the job control statements used 
FORTRAN IV (E) cataloged procedures and a 
brief description of each procedure. This 
section also describes how to override 
Statements and parameters in any cataloged 
procedure. (The use of cataloged proce- 
dures is discussed in “Job Processing.") 
The SPACE parameter shown in these cata- 
loged procedures is written for use with 
IBM 2311 disk storage drive. 


showing 
in the 


Compile 

The cataloged procedure for compilation 
(FORTEC) is shown in Figure 48. 

The EXEC statement that invokes’ the 


FORTRAN E compiler is named FORT; the EXEC 
statement indicates that the operating sys- 
tem iS to execute the program IEJFAAAO [the 
name for the FORTRAN (E) compiler]. Com- 
piler options are not explicitly supplied 
with the procedure: default options are 
assumed. The programmer can override these 
default options by using an EXEC statement 
which includes the options he desires. 


Compile and Link Edit 


(FORTECL) to 
edit the 


The cataloged procedure 
compile a source module and link 


























CATALOGED PROCEDURES 


The EXEC statement named FORT instructs 
the control program to execute the FORTRAN 
(E) compiler. Again, no compiler options 
are specified; default options are assumed. 


The EXEC statement named LKED instructs 
the control program to execute the program 
IEWL (the alias for the highest level 
linkage editor in the installation's oper- 
ating system). This statement also speci- 
fies the XREF, LIST, LET, and NCAL linkage 
editor options. The NCAL option instructs 
the linkage editor not to resolve any 
external references in the FORTRAN library. 
This means that the resulting load module 
must be processed by the linkage editor 
again before the module can be executed 
unless NCAL is overridden. 


The cataloged procedure to link edit 
FORTRAN object modules and execute the 
resulting load modules (FORTELG) is shown 


in Figure 50. 


The EXEC statement that executes the 
linkage editor is named LKED and specifies 
that the operating system is to execute the 


program IEWL, the alias for the highest 
level linkage editor. This statement also 
specifies the XREF, LIST, and LET options 


for the linkage editor. The programmer can 








































resulting object module into the FORTRAN Override these options by using an EXEC 
library (FORTLIB) is shown in Figure 49. statement in the input stream. 
IBM FORTRAN Coding Form Med 
= Twos ee 
* MUMGER | FORTRAN STATEMENT 
Too se 10 1 12 14 15 16 17 18 19 20 2122 2324 2526 2728-29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 7] A EE 
NEE EN EE eee eee ON CECE EEE 
SYSIPIRINT Dp Ssysc As DC/B=BL KS! Ze fears Sa 
/LSYSPuNCH Dip ‘SysouT=BopcB=-BLKSsize=ee | 
/u'sysiur4| pp UNI T=syss@oSeP=sysPUuNCH» SPACE=(9@u>x(se020))) 0 | | | 
//sysulr2| bp UNIT<SYSSQ@>SElP=sysuT1»SPACE=(9@u.(3sgo20)) || | i] tt 
fi ti [| lil | SPACE=(8¢.(20¢.20¢ TEST sales Dees pclae ye eae ele a cle ueay 
ee eee ee Te ee SOE eee id la ier yal ese 




































































Figure 48. 
























































Compile Cataloged Procedure (FORTEC) 
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The EXEC statement named GO executes the //EXAMPLE1 JOB ACCOUNT1, ‘JOHN SMITH', 


load module produced by the linkage editor MSGLEVEL=1 
procedure step. The PGM parameter speci- // EXEC FORTECLG, PARM.FORT=DECK, 
fies that the operating system is to exe- REGION. GO=60K 
cute the data set defined by the DD state- //FORT.SYSIN DD *# 
ment SYSLMOD in the procedure step LKED. : 

In a multiprogramming environment with a FORTRAN SOURCE SYMBOLIC DECKS 
priority scheduler, main storage require- : 
ments for the execute step are determined . 
by a number of factors. These include the s 


Size of the object program produced by the 

compiler, the requirements of the data /* 

access method used, the blocking factor, J/ULKED.SYSIN DD * 
the number and record sizes of data sets ‘ 
used, the number and sizes of library 

subprograms invoked, and the sizes of other 


execution time routines required by the PREVIOUSLY COMPILED OR ASSEMBLED 
program. If the default REGION is not OBJECT DECKS 
large enough for program execution, ‘ 
REGION.GO must be used to specify a REGION 5 
parameter on the program's EXEC statement. : 
/* 

A listing of the execution time routines //GO.SYSIN DD * 
required for various input/output, inter- ; 
ruption, and error procedures is contained ‘ 
in the publication IBM System/360 FORTRAN : 
IV_ Library Subprograms. It also lists the INPUT DATA 
Sizes of both the execution time routines ‘ 
and the mathematical subprograms. : 


The following is an example of using a /* 
REGION.GO specification to indicate the 
main storage requirements for the execute 
Step Of a FORTRAN program. 











































































































































































IBM FORTRAN Coding Form ie 
rca pe EE ee 
a OO Oe 
ie aren peagaee gst Lo 
| DO] UNI MT=SYS6G> SEP=SYSPUNCH) SPACES SOHN Sa120))| | SURELEUEAAAERRAREEGE 
Dp UNI T=SYSSQ2SEP=SYSUT1 > SPACE=(96H2(36220)) || iif 
HTT MPACES (BECABUSPOAORUSED TOT tice Pee 
Pea nenccee ret rare EDEL 
Do S¥SouUT-A»DCB-BLKisize-n1a7 [7 Tit) TL Parsnean 
SIN DD DSNAME=LOADSET >01S/P= COLO) DELETE)» 0co-euKsimeead| | | ii | 
Se rca ua rommampoppee creer eeperbee 
1x @ > es a 
UT1 DO UNI T=SYSDA>SEP=SYSLMOD > SPACE (i@2Hs (3020011111 1 111 Tl. 
SRG Eaeanwee Bue Witch 



















































































Figure 49. Compile and Link Edit Cataloged Procedure (FORTECL) 
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Figure 50. 


Compile, Link Edit, and Execute 


The cataloged procedure (FORTECLG) to 
compile, link edit, and execute FORTRAN 
source modules is shown in Figure 51. 


The cataloged procedure FORTECLG con- 
Sists of the statements in the FORTEC and 
FORTELG procedures, with one exception: the 
DD statement SYSLIN (in the compiler proce- 
dure step FORT) defines the output of the 
compiler, and the statement SYSLIN (in the 
linkage editor procedure step LKED) iden- 
tifies this data set as the primary input 
to the linkage editor. The programmer does 
not have to define the linkage editor input 
aS he did with the procedure FORTELG, but 
he must define the data set SYSIN for the 
compiler so that the source module can be 
read. He may also define a data set which 
becomes part of the primary input by using 
a DD statement LKED.SYSIN which is concate- 
nated with object module. This data set is 
concatenated with the data set containing 
the output of the compiler. 


USER AND MODIFIED CATALOGED PROCEDURES 


re rr ree ec AC cS RC I nL A TT AS TE AS TSE SSE -STS AE TES A 


Can write his own cata- 
them to the 
He can 


The programmer 
loged procedures and tailor 
facilities in his installation. 








Link Edit and Fxecute Cataloged Procedure (FORTELG) 


also permanently modify the IBM-supplied 
cataloged procedures. For information 
about adding and permanently modifying cat- 
aloged procedures, see the section 
"Cataloged Procedures" in the publication 


System Programmer's Guide. 


If during system generation, the G or H 
level library option was specified in the 
FORTLIB macro-instruction, the FORTRAN (E) 


cataloged procedures must be permanently 
modified to correspond to the FORTRAN (G) 
or (H) cataloged procedures. The FORTLIB 


macro-instruction is described in the pub- 
lication IFM System/360 Operating System, 
System Generation. Further modifications 
to cataloged procedure may be necessary as 
described in the Job Control Language pub- 
lication. 


If the E level library option was speci- 
fied, but the value of the OBJERR parameter 
of the FORTLIB macro-instruction was omit- 
ted or specified as something other than 
03, the following DD card must be added to 
the FORTRAN E cataloged procedure either to 
modify them permanently or to override them 
at execution time. 
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BM | FORTRAN Coding Form Bilal oe 
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Figure 51. Compile, Link Fdit, and Execute Cataloged Procedure (FORTECLG) 


//GO.FTXxXF001 DD SYSOUT=A that is, the parameters added or modified 
are in effect only for that execution. 
where: 
xx (2 digits) is the unit specified. 
(See Figures 50 and 51.) 


OVERRIDING CATALOGED PROCEDURES 


| If the same cataloged procedure is exe- 
Cataloged procedures are composed of cuted by two different job steps in the 
EXEC and DD statements. A feature of the same job, the overriding parameters or 
operating system is its ability to read Statements Supplied for the first execution 
control statements and modify a cataloged are not carried over for the second execu- 
procedure for the current execution of the tion of the procedure. For example, con- 
procedure. Overriding is only temporary; sider these job control statements: 
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//JOB1 JOB MSGLEVEL=1 
//STEP1 EXEC FORTEC, PARM. FORT=*SIZE=22K' 


//STEP2 EXEC FORTEC 


When the procedure iS executed in the first 
step STEP1, the compiler is allocated 22K 
bytes. However, when the procedure FORTEC 
is executed in the second step, the SIZE 
option reverts to the default option (15K) 
because the overriding parameter only 
affects the current execution of the cata-~ 
loged procedure. 


The following text discusses the tech- 
niques used to override cataloged proce- 
dures. 


A EY A RE TI A RE SE RA TR OY A PCED PD 


Two forms of keyword parameters 
("keyword"™ and “keyword.procstep") in the 
EXEC statement are discussed in "Job Con- 
trol Language." The form “keyword. 
procstep" is used to add or override param- 
eters in an EXEC statement in a cataloged 
procedure. 


The FORTRAN programmer can, for example, 
add (or override) compiler or linkage edi- 


tor options, specify accounting informa- 
tion, or he can state different conditions 
for bypassing a job step for an execution 


of a cataloged procedure. 


Note: When the PARM parameter is overrid- 
den, all options stated in the EXEC state- 
ment in the procedure step are deleted, and 
the overriding PARM parameter is substitut- 
ed. 


Example 1: Assume the cataloged procedure 
FORTEC is used to compile a program, and 
the programmer wants to specify the name of 
his program and the MAP compiler option. 


The following statement can be used to 
invoke the procedure and to _ supply the 
option. 
//STEP1 EXEC FORTEC, Xx 
4/ PARM. FORT=' MAP, NAME=MYPROG' 

The PARM options apply to the procedure 
step FORT. 
Example 2: Assume the cataloged procedure 


FORTECL is used to compile and link edit a 
program. The programmer wants to specify 
the ADJUST option for the compiler because 
his source module contains embedded blanks 


and FORTRAN keywords used as variable 
names. Furthermore, he wants to remove the 
NCAL linkage editor option because he does 
not want to make another pass through the 
linkage editor prior to using the load 
module in execution. The following EXEC 
statement can be used to add the ADJUST 
option to the compiler procedure ster 
(FORT), and remove the NCAL option from the 
linkage editor procedure step (LKED). 


//CL EXEC FORTECL, PARM. FORT=ADJUST, xX 
// PARM. LKED=(XREF, LIST, LET) 
Example 3: Assume the cataloged procedure 


FORTELG is used to link edit and execute a 
module. Furthermore, the MAP linkage edi- 
tor option overrides XREF, LET, and LIST in 
the linkage editor step and the COND param- 
eter is changed for bypassing the execution 
of the load module. The following EXEC 
Statement adds and overrides parameters in 
the procedure. 


7//DO EXEC FORTELG, PARM.LKED=MAP, X 
// COND .GO= (3, LT, DO. LKED) 


The PARM parameter applies to the link- 
age editor procedure step LKED, and the 
COND parameter applies to the execution 
procedure step GO. 


Example 4: Assume a source module is 
compiled, link edited, and executed using 
the cataloged procedure FORTECLG. Further- 


more, the compiler option SIZE and the 
linkage editor option MAP are specified, 
and account number 506 is used for the 
execution procedure step. The following 
EXEC statement adds and overrides parame- 
ters in the procedure. 
//STEP1 EXEC FORTECLG, X 
// PARM. FORT='SIZE=22000', X 
// PARM. LKED=MAP, X 
4/ ACCT. GO=506 
Overriding and Adding DD Statements 

A DD statement with the name 
"“procstep.ddname" is used to override pa- 
rameters in DD statements in cataloged 


procedures or to add DD statements to 
cataloged procedures. The “procstep" iden- 
tifies the step in the cataloged procedure. 
If “ddname" is the name of a DD statement 


1. present in the step, the parameters in 
the DD statement in the input stream 
override parameters in the DD _  state- 
ment in the procedure step. 


2. not present in the step, the new DD 
statement is added to the step. 
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In any case, the modification is only 
effective for the current execution of the 
cataloged procedure. 


When overriding, the original DD state- 
ment in the cataloged procedure is copied, 
and the parameters specified in it are 
replaced by the corresponding parameters in 
the new DD statement. Only parameters that 
must be changed are specified in the over- 
riding DD statement. | 


wants to delete a 
keyword parameter in a DD statement, he 
Supplies an overriding DD statement that 
contains that keyword, followed by an equal 
Sign, followed by a comma. 


If the programmer 


keyworde-, 


For example, if the SYSOUT parameter is to 
be deleted from the SYSPRINT data set and 
the data set is to be written on the device 
PRINT in the cataloged procedure FORTEC, 
the following DD statement is used: 


//FORT.SYSPRINT DD SYSOUT=,UNIT=PRINT 


If more than one DD statement is modi- 
fied, the overriding DD statements must be 
in the same order that the DD statements 
appear in the cataloged procedure. Any DD 
Statements that are added to the procedure 
must follow overriding DD statements. 


When the procedures FORTEC, FORTECL, and 
FORTECLG are used, a DD Statement 
FORT.SYSIN must be added to define the 
SYSIN data set to the compile step in the 


procedures (see Figures 15, 18, and 24). 
When the procedure FORTFLG is used, a DD 
statement LKED.SYSIN must be added to 


define the SYSLIN data set (see Figure 21). 


When the procedures 
and FORTECLG are used, 


FORTELG, FORTECL, 
an overriding DD 


statement can be used to write the load 
module constructed in the linkage editor 
step ina particular PDS chosen by the 


programmer and assign that member of the 


PDS a particular name. 


If the programmer is using the procedure 
FORTECL and he does not supply an overrid- 
ing DD statement assigning the resulting 
load module to a private PDS, he must 
Supply an overriding DD statement 


//GKED.SYSLMOD DD DSNAME SYS1.FORTLIB (name) 
to name the load module before he places it 


in the FORTRAN library (SYS1.FORTLIB). 
This procedure can be a powerful tool for 
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adding modules to the FORTRAN library and 
replacing load modules in the FORTRAN 
library. | 


In execution procedure steps, the pro- 
grammer can catalog data sets, assign names 
to data sets, supply DCB information for 


data sets, add data sets, or specify par- 
ticular volumes for data sets by using 
overriding DD statements. 

Example i The cataloged procedure 


FORTECLG is used to compile, link edit, and 
execute a FORTRAN program. Since the oper- 
ating system for this installation contains 
the highest level linkage editor, blocking 
can be specified for the SYSLIN data _ set. 
In addition, the SYSPRINT data set for the 
compiler is blocked. The PRFRM and SIZE 
compiler options are specified in the PARM 
parameter, along with the BLKSIZE LRECL 
Subparameter in the DCB parameter for these 
data sets. 


During load module execution, the pro- 
grammer wants the data set identified by 
ddname FTO3F001 to be written on the device 
class TAPE, instead of treating this data 
set as a SYSOUT data set and writing it on 
device class A. To do this the SYSOUT 
keyword parameter must be deleted from the 
SYSPRINT DD statement in the procedure step 
FORT, and a UNIT parameter must be sup- 
plied. The data sets identified by ddnames 
FTO4YFOO1 and FTO8FO01 are named, cataloged, 
and assigned specific volumes. The follow- 
ing DD statements are used to add this 
information and indicate the location of 
the source module. 


//JOB1 JOB MSGLEVEL=1 

//STEP1 EXEC FORTECLG, X 
4/ PARM. FORT="' PRFRM, SIZE=22K' 
//FORT.~SYSPRINT DD DCB=BLKSIZE=968 
//FORT.SYSLIN DD DCB=BLKSIZE=800 
//¥FORT.SYSIN DD * 


eg re gig eg ae et 1 
| FORTRAN Source Module 

RRR eR ec EPO CD SR Ae er en IO a ee ee nye ae aS J 
/* 


7/UKED.SYSLIN DD DCB=BLKSIZE=800 
//GO.FTO3F001 DD SYSOUT=,,UNIT=TAPE 


//GO.FTO4F001 DD DSNAME=MATRIX, ».4 
// DISP= (NEW, CATLG) , UNIT=TAPE, ».4 
// VOLUME=SER=987K 

//GO.FTO8F001 DD DSNAME=INVERT, x 
4S DISP= (NEW, CATLG) , UNIT=TAPE, X 


// VOLUME=SER=1020 


Example 2: Assume that DCB information is 
added to the DD statement identified by 
ddname FTO3F001, and that a sequential data 
set that contains blocked records’ and 


resides on a direct access volume is creat- 
ed and cataloged, using data set reference 
number 2. The following statements over- 
ride statements FTO2F001 and FTO3F001 in 
the procedure and indicate the location of 
the object module. 


4/JOB2 JOB 
//STEP1 EXEC FORTELG 
//GKED.SYSIN DD * 


a ee ae ee ee 1 
| FORTRAN Object Module | 
cs re ee J 
/* 

//GO.FTO2F001 DD DSNAME=FIRING, Xx 
Jf UNIT=SYSDA, DISP= (NEW, CATLG) , Xx 
// SPACE= (100, (2000,200),,,ROUND), X 
// VOLUME= (PRIVATE, SER=207H), xX 
// DCB= (RECFM=VB, BLKSIZE=2 416, X 
// LRECL=804) 

//GO.FTO3F001 DD DCB=(RECFV=F, xX 


// BLKSIZE=50) 


Example 3: Assume the cataloged procedure 
FORTECL is used to compile and link edit a 
module, DER, which is added to the FORTRAN 
library. The following job control state- 
ments can be used to add the module to the 
FORTRAN library. 


//ADDMDL JOB 427,'R.WHITE' 
//CL EXEC FORTECL, PARM. FORT=‘NAME=DER‘ 
//¥FORT.SYSIN DD * 


Ce ge ee te ee Ee a a 1 
| FORTRAN Source Module | 
ee ee Se J 
/* 


//UKED.SYSLMOD DD DSNAME=SYS1.FORTLIB(DER) 


After 
can be used to resolve external 


the procedure has been executed, DER 
references 


made in FORTRAN source modules to the name 
DER. 
Example 4: Assume the cataloged procedure 


FORTECL is used to replace the library 
function SQRT in the FORTRAN library. The 
following job control statements can be 
used to replace the SQRT function in the 
FORTRAN library. 


//REPLAC JOB ,‘JIM JONES‘ 
7/ EXEC FORT FORTECL, PARM=*NAME=SQRT,MAP' 
//FORT.SYSIN DD * 


Pe ce ee ee ee ere Tee i er ee 1 
| FORTRAN Source Module | 
ES en aN nr Ry ye ee eon 4 
/* 


//TKED.SYSLMOD DD DSNAME=SYS1.FORTLIB(SQRT) 


After the execution of the cataloged proce- 
dure, the new module SORT is used to 
resolve any external references made to the 
name SQRT. The IBM-supplied library sub- 
program is no longer used. 


Example 5: Assume the cataloged procedure 
FORTEC is used to compile a source module 
STARS. The resulting object module STARS 
is to be written in the PDS SCIENCE. The 
SYSPRINT data set is written on the PDS 
PRINT and assigned the member name STARS. 
The following job control statements can be 
used to write this output in the parti- 
tioned data sets. 


//JOB2 JOB ,JIM 
//STEP EXEC FORTEC 


//FORT.SYSPRINT DD DSNAME=PRINT (STARS) x 
// DISP=OLD 
7/¥FORT.SYSLIN DD DSNAME=SCIENC (STARS ) x 


// DISP=OLD 


Example 6: Assume the link edit and exe- 
cute cataloged procedure (FORTELG) is used. 
The load module constructed in the linkage 
editor step is placed in the cataloged 
partitioned data set MATH and is assigned 
the member name DERIV. The parameters not 


overridden in the SYSLMOD DD statement are 
copied and used to write the SYSLMOD data 
set. 


//JOB3 JOB 

//STEP1 EXEC FORTELG 

//UKED.SYSLMOD DD DSNAME=MATH(DERIV), xX 
// DISP= (MOD, PASS) 

//UKED.SYSIN DD * 


ae tee tee ee cee er ee Ne A oe a 1 
| FORTRAN Object Module 

Ni a ee eee J 
/* 

Example 7: Assume the compile, link edit, 


and execute cataloged procedure (FORTECLG) 
is used with three data sets in the input 
stream: 


1. A FORTRAN main program MAIN with a 


series of subprograms, SUB1 through 
SUBN. 

2. A linkage editor control statement 
that specifies an additional library, 
MYLIB. MYLIB is used to resolve 
external references for the symbols 


ALPHA, BETA, and GAMMA. 
3. A data set used by the load module and 


identified by data set reference num- 
ber 1 in the source module. 
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//JOBCLG JOB 00,'J.DAVID' ,MSGLEVEL=1 
//EXECCLGX EXEC FORTECLG 
//FORT.SYSIN DD # 


bate eee eee eee ee 
| FORTRAN Source Module SUB1 
|+---------------------------------------- 
| ‘ 

| e 

| ; 

boas eS So 2o eae aoa ee Sete ee ee ee 
| FORTRAN Source Module SUBN 

be Soe ete ee aca 
/* 


//UKED.ADDLIB DD DSNAME=MYLIB, DISP=OLD 
//UGKED.SYSIN DD * 
LIBRARY ADDLIB(ALPHA, BETA, GAMMA) 
/* 
//GO.SYSIN DD * 
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The DD statement FORT.SYSIN indicates to 
the compiler that the source modules are in 
the input stream. The DD statement 
LKED.ADDLIB defines the additional library 
MYLIB to the linkage editor. The DD state- 
ment LKED.SYSIN defines a data set that is 
concatenated with the primary input to the 
linkage editor. The linkage editor control 
Statements and the object modulesS appear as 
one data set to the linkage editor. The DD 
statement GO.SYSIN defines data in the 
input stream for the load module. 
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This section discusses minimum system 
requirements for the compiler, program 
optimization, updating the FORTRAN library, 
creation of the programmer's private 
library, and limitations of the compiler. 


MINIMUM SYSTEM REQUIREMENTS FOR THE FORTRAN 
COMPILER 


IBM System/360 Operating System operates 
ina device-independent environment. In 
particular, the FORTRAN compiler may oper- 
ate with any combination of devices (shown 


in Table 3); however, there are certain 
requirements. 
The FORTRAN (E) compiler requires at 
least a System/360 Model 30 with 32K 
bytes of storage, and the standard 


instruction set with the floating-point 
option. At least 15,360 bytes should 
be allocated in the SIZE compiler 
option. If less than 15,360 bytes is 
specified, the compiler assumes’ the 
design point value 15360. 


All programs require a device, such as 
the 1052 keyboard printer, for direct 
operator communication. 


At least one direct access device must 


be used for residence of the operating 
system. 
If the data sets identified by the DD 


| Statements SYSUT1, SYSUT2, and SYSLIN 
are to reside on direct access volumes, 
another direct access device should be 
made available to the compiler for more 
efficient compilation. 


When a DD statement specifies that a 
data set resides on a tape volume, 
there must be one tape device available 
in the installation for that data _ set. 


SOURCE PROGRAM CONSIDERATIONS 


Facilities are available in the FORTRAN 
language that enable a programmer to opti- 
mize compilation and execution speed and to 
reduce the size of the object module. 


PROGRAMMING CONSIDERATIONS 


Initialization 


initialize all 
initialized by 


The programmer should 
variables that are not 
arithmetic Statements in his program. 
Operating System/360 may place a load 
module anywhere in available main storage; 
the value of a variable cannot be guaran- 
teed until the programmer has given that 
variable a value by an assignment state- 
ment. For example, in the subprogram 


SUBROUTINE ALPHA(X,Y, Z) 
A=Bt+2.0 


the result A may contain any value, because 
B was not initialized. If the programmer 
expects B to be zero, he should initialize 
B as shown in the following statements: 


SUBROUTINE ALPHA(X,Y, Z) 
B=0.0 
A=B+2.0 


Coding the Source Program 


The ADJUST compiler option permits the 
programmer to insert embedded blanks, elim- 
inate meaningful blanks, and use FORTRAN 
keywords as variable names in his program. 
In order to decrease compilation time, the 
NOADJUST option may be specified. However, 
the program to be processed by the NOADJUST 
option must be such that there are no 
embedded blanks, meaningful blanks are 
placed where required, and there are no 
uses Of FORTRAN keywords or variable or 
array names in the source program. 


Arithmetic Statements 


The use of multiplication instead of the 
exponential operation is recommended when 
the exponent iS a small integer. For 
example, the statement 


VOL= (4. *R*R*¥R)/3. 
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is more efficient than the statement 
VOL=(4.*R**3)/3. 


because the exponential operation requires 
a library subprogram. When multiplication 
is used, storage is conserved and both 
compiler and linkage editor processing time 
are decreased. 


To calculate the square root, the square 
root library subprogram should be used 
instead of the exponential function. For 
example, the statement 


HYPOT=SQRT (A*A+B*B) 

is more accurate than the statement 

HYPOT= (A*A+B*B) **0.5 

accurate 


because the SORT function is more 
than the exponential function. 


The mixed mode arithmetic expression is 
provided to reduce errors because of unin- 
tentional use of different modes in arith- 
metic statements. However, when mixed mode 
arithmetic statements are used, extra 
instructions are generated. For example, 
in the statement 


A=At1 

an in-line subprogram is generated to per- 
form the operation indicated. Both main 
storage and execution time would be saved 


by using the statement 


A=A+1.0 


iF Statement 


An arithmetic IF statement lists three 
statement numbers. One of the listed num- 
bers should immediately follow the IF sta- 
tement to eliminate unnecessary branching 
in the load module. For example, the 
coding represented by the statements 


IF (A-B) 20, 30,30 
30 A=0.0 
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is more efficient than 
by the statements 


coding represented 


IF(A-B) 20,30,30 


10 X=2.+Y 
30 A=0.0 
20 B=0.0 


DO Loop Considerations 


Values for expressions that remain con- 
stant within a DO loop should be calculated 


before entry into the loop, instead of 
calculating the expression each time 
through the 1oop. For example, in the 
statements 

DO 10 I=1,100 


X (I) =2. 0* (G+ALPHA) +¥ (TI) 
10 CONTINUE 


the expression 2.0*(G+tALPHA) must be calcu- 
lated each time the DO loop is executed. 
For greater efficiency, the following sta- 
tements should be substituted 


BETA=2. 0* (G+ALPHA) 
DO 10 I=1,100 
X(1I) =BETA+tY (I) 
10 CONTINUE 
is decreased, because 


The execution time 


the expression 2.0*(G+ALPHA) is calculated 
only once. 
Any subscripts that remain constant 


within the range of a DO loop should not be 
used in the DO loop. For example, in the 
statements 


DO 10 I=1,50 
X(I)=¥(I)+Z(9) 


10 CONTINUE 


a subscript calculation for Z(J) is per- 
formed each time the DO loop is’ executed, 
even though Z(J) remains constant for each 
execution of the loop. 


By substituting the statements 


B=Z (J) 
DO 10 I=1, 50 
X(I)=YC(I)+B 


10 CONTINUE 


only one subscript calculation is made for 
Z(J) and execution time is decreased. 


Intricate subscript calculation within 
the range of a DO should be avoided. For 
example, in the statements 


DO 10 I=1,10 
5 X(3*I+4)=V(3*I+4) 4B 


10 CONTINUE 


two intricate subscript calculations are 
made each time statement 5 is executed. 
The DO loop should be rewritten as shown in 
the statements 


DO 10 I=7, 34,3 
5 X(L)=Y(I)+B 


10 CONTINUE 


to reduce the subscript calculation to 
Simpler terms and allow faster execution of 
the DO loop. 


READ/WRITE_ Statements 


To read or write an array, an implied DO 
in a READ/WRITE statement should be used 
instead of a DO loop. For example, five 
FORTRAN records, each containing two 
values, are written by the statements 


10 FORMAT (F20.5,1I10) 
DO 15 I=1,5 
15 WRITE(5,10)A(I),J(1) 


In the statements 


10 FORMAT (5(F20.5,110)) 
WRITE(5,10) (A(T), J(1), I=1, 5) 


only one FORTRAN 
values is written. 
DO saves load module 
Space on the volume 


record containing ten 
The use of an implied 
execution time and 


Extra subscript calculation within the 
range Of an implied DO should be avoided. 
This is the same consideration shown in 


regard to the DO loop. if the 


statements 


For example, 


2  FORMAT(*O',10F12. 6) 


READ (1, 2) (A(1), 1=4, 31, 3) 


are substituted for the statements 


2  FORMAT('0',10F12. 6) 
READ (1, 2)A(3*I4+1),1=1,10) 


the intricacy of the subscript calculation 
is reduced and the load module execution 
time is reduced. 


Program Structure 


Better efficiency in load module execu- 
tion is achieved when storage for a main 
program or each subprogram (excluding 
COMMON) is less than 12K bytes. A program 
that exceeds 12K bytes may be segmented 
into a group of subprograms and one main 
program. 


If a large number of variables are to be 
passed among calling and called programs, 
some of the variables should be placed in 
the COMMON area. For example, in the main 
program and subroutine EXAMPL 


DIMENSION E(20),1(15) 
READ(10)A,B,C 
CALL EXAMPL(A,B,C,D,E,F,1) 


END 


SUBROUTINE EXAMPL (X,Y,2Z,P,0,R,d) 
DIMENSION Q(20),9(15) 


RETURN 
END 


storage are wasted by allocating 
variables in both the main 
program and subprogram, and by the subse- 
quent instructions required to transfer 
variables from one program to another. 


time and 
storage for 


The two programs should be written using 
a COMMON area, as follows: 
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COMMON A,B,C,D,E(20),F,1(15) 
READ(10)A,B,C 
CALL EXAMPL 


END 


SUBROUTINE EXAMPL 
COMMON X,Y,Z,P,Q(20),R,J(15) 


RETURN 
END 


Storage is allocated for variable in COMMON 
only once, and fewer instructions are 
needed to cross-reference the variables 
between programs. 


Statement Numbers and Names 


For its internal use, the compiler 
places statement numbers and names used for 
variables, arrays, and subprograms in two 
tables. Each table is divided into several 


strings and is searched many times during 
compilation. If the number of entries in 
each string iS approximately equal, the 


average time required to find a name or a 
statement number is reduced. 


STATEMENT NUMBERS: Statement numbers are 
assigned to five strings in the statement 
number table; assignment is made according 
to the last digit in the statement number. 
Statement numbers ending in 0O or 1 are 
placed in the first string; those ending in 
2 or 3 are placed in the second; those 
ending in 4 or 5 are placed in the third; 
etc. Statement numbers should be evenly 
distributed in the strings to decrease 
compilation time. 


For example, using 100 statement numbers 
that end only in 0 or 5 is inefficient, 
because two long strings of 50 entries each 
are created in the statement number table. 
If these 100 statement numbers were distri- 
buted equally in strings, that is, 10 
statement numbers ending in 0, 10 ending in 
1, etc., five strings of 20 entries each 
would be created. The time used to compile 
the source program is decreased because 
excessive time is not spent searching long 
strings. 
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NAMES: Names used in the program are 
assigned to six strings; assignment is made 
according to the length of the name. Names 
that are one character long are placed in 
the first string; names two characters long 
are placed in the second string, etc. For 
faster compilation, the names should be 
distributed equally among the six strings. 
For example, if there are 26 names of one 
character each in a program, one long 
string is created. For greater efficiency, 
the names should be distributed equally to 
make six strings, each containing four or 
five names. 


Use of Embedded Blanks in FORTRAN Programs 


To improve the readability of a source 
program, the programmer may use any number 
of blanks when writing FORTRAN statements. 
Except for literal data, in which blanks 
are retained as coded in the source state- 
ment, blanks are normally ignored by the 
compiler. Thus, the statement DO 25 J = 10 
is the equivalent of DO25J=10. Both state- 
ments are syntactically correct assignment 
Statements and are executed as_ such. (A 
value of 10 is assigned to the variable 
DO25J.) Neither statement will cause an 
error message. 


Use of DUMP and PDUMP 


Three facts are pertinent when the sub- 
routines DUMP and PDUMP are used: 


1. Under the operating system, a program 
can be loaded into different areas of 
main storage for different executions. 


2. The 
variables 
same order that the programmer 
fied in a COMMON statement. 


compiler assigns locations to 
and arrays in COMMON in the 
Ss peci- 


3. The compiler assigns locations in the 
object module to variables and arrays 


that are not in COMMON by name length 
and the order in which they are 
encountered. 


several 
that 


shows 
statements 


The following text 
examples of how to write 
use DUMP and PDUMP. 
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If a series of variables and arrays that 
reside in COMMON are to be dumped, only the 
first and last variables to be dumped 
should be listed as arguments for the 
subroutine For example, if COMMON is 
defined as: 


COMMON A, B,C(20),1(10),D 

the following statement can be used to dump 
the variable B and the arrays C and I in 
hexadecimal format and terminate execution 
after the dump. 

CALL DUMP (B,1(10),0) 


If the variables and arrays are not in 
COMMON, a set of arguments should be listed 


for each name that is to be dumped. For 
example, if COMMON is defined as: 


COMMON A,B,C(20),1(10),D 


and the array X is defined as: 


DIMENSION X(25) 


and a variable Y is defined in the module, 
the following statement should be used to 
dump B, C, I, Y, and xX in real format 
without terminating execution: 


CALL PDUMP(B,1(10),5,X(1),X(25),5,Y,Y,5) 
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If the statement 


CALL PDUMP(B,1(10),5,X(1),¥Y,5) 


is used, the COMMON area is dumped correct- 
ly, but all main storage between X(1) and Y 
is dumped. 


If an array and a variable are passed as 
arguments to a subprogram, the arguments in 
the call to DUMP or PDUMP in the subprogram 
should specify the parameters used in the 
definition of the subprogram. For example, 
if the subprogram SUBI is defined as: 


SUBROUTINE SUBI(X, Y) 
DIMENSION X(10) 


and the call to SUBI within the 
module is: 


source 


DIMENSION A(10) 


CALL SUBI(A, B) 
then the following statement in the subpro- 
gram should be used to dump the variables 


in hexadecimal format without terminating 
execution: 


CALL PDUMP (X(1),X(10),0,Y,Y,0) 


Object Time Input/Output Efficiency 


FORTRAN processing time can be appre- 
ciably reduced by the use of programming 


techniques that result in greater data 
transfer efficiency. Such techniques are 
particularly important in executing pro- 


grams that require substantial input/output 
operations. Discussed below are four pro- 
gramming areas in which the correct choice 
of programming method can increase FORTRAN 
processing speed. 


READ/WRITE TYPE: The unformatted form of 
the READ and WRITE statement provides’ the 
fastest data transfer rate. Therefore, for 


most efficient processing, the unformatted 
form should be used to transfer information 
to or from an intermediate data set -- a 
data set that is written out during a 


program, not examined by the programmer, 
and then read back for additional proces- 
Sing later in the program or in another 
program. Thus, for an intermediate data 
set, statement 11 in the following example 
is preferable to statement 9. 


Many variables, use a 


list of variables. 


COMMON A(10), B(10) 
DIMENSION D(20) 
EQUIVALENCE (A(1), D(1)) 


9  WRITE(10, 10)A, B 
10 FORMAT (10E13.3/) 
11 WRITE (9) D 


IMPLIED DO: Array notation is far more 
efficient than the indexing capability of 
an implied DO in an I/O list. Thus, for 
efficiency, the statement WRITE (9) A 
(where A is an array name) is preferable to 


WRITE (9) (ACI), I=1, 13). 


EQUIVALENCE STATEMENT: In FORTRAN, on 


input, data is taken from ae record and 
placed into storage locations that are not 
necessarily contiguous. On output, data is 
normally gathered from diverse storage 
locations. Input/output operations, howev- 
er, can be made more efficient by storing 
and retrieving data from contiguous 
locations. 


To construct an efficient READ or WRITE 
statement for an I/O list consisting of 
COMMON or named 
COMMON statement to force all the variables 


in the list to be allocated contiguous 
storage space. Next, use an EQUIVALENCE 
statement to define a single dimensioned 


that is the same length as the 
Finally, use a WRITE on 
the single dimensioned variable using array 
notation. The following example illus- 
trates this technique: 


variable 


COMMON/LISTA/A(10),B(8), C, D, I, K, L(10) 
REAL*8 B 

COMPLEX*¥16 LIST(10) 

EQUIVALENCE (A(1), LIST(1)) 


WRITE (9) LIST 


Use of the BACKSPACE 
efficient 


BACKSPACE STATEMENT: 
statement is not recommended if 
processing is desired. 


Data Definition Considerations 


The DCB parameter of the DD statement 
allows for the redefinition of many data 
set characteristics at execution time. 
Those specifications that most concern the 
FORTRAN programmer are discussed in the 
following text. For a full description of 
the DCB parameter, see the publication IBM 
System/360 Operating System Supervisor and 
Data Management  Macro-Instructions, Form 
C28-6647. 
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BLKSIZE: The BLKSIZE subparameter speci- 
fies the buffer size to be used; the 
Maximum is 32K bytes. As a general rule 


a larger block size is more 
On disk, track capacity is the 
most efficient block size. The block size 
specified should be large enough to hold 
the largest logical record produced. No 
spanning of a logical record into physical 
records will then occur. 


for tape, 
efficient. 


BUFNO: The BUFNO subparameter specifies 
the number of buffers to be used. If a 
value of 1 is specified for BUFNO, single 
buffering is provided. If either no value 
Or any value other than 1 is specified, 
double buffering, which offers an overlap 
advantage, is provided. 


RECFM: The RECFM subparameter specifies 
both record format and the use of blocking. 
When records are blocked, fewer I/O 
requests are made to a device during the 
processing of logical records; I/O proces- 


Sing speeds are thereby increased. In 
general, large blocking factors improve 
performance. (See “Record Format" for 


additional information.) 


OPTCD: OPTCD=C requests the use of chained 
scheduling, a feature that results in the 
decrease of I/0 transfer time. Chained 


scheduling is put into effect only when an 
I/O request is received before a previous 
I/O request has ended. For this reason, it 
is difficult to predict when chained sche- 
duling will be effective. However, the use 
of chained scheduling will provide a per- 
formance improvement in the formatting that 


is done with a new direct access data set. 
For sequential data sets, the user may wish 
to measure the effect before selecting 


chained scheduling for production runs. 


Direct Access Programming 


The use of direct access I/O rather than 
sequential I/O can decrease load module 
execution time: the direct access state- 
ments in the FORTRAN IV (E) language enable 
the programmer to retrieve a record from 
any place on the volume without reading all 
the records preceding that record in the 
data set. Direct data sets should be 
pre-formatted. If the NEW subparameter of 
the DD statement is specified for the data 
set, the FORTRAN load module will format 
the data set before the program begins 
processing. 


Note: Direct access I/O statements and 
sequential I/O statements may not be’ used 
to process, via the same unit number, the 
Same direct data set within the same 
FORTRAN load module However, sequential 
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I/O statements may process a direct data 
set in one load module, while direct access 
I/O statements process it in another 


Not all applications are suited to 
direct access I/0, but an application that 
uses a large table that must be held in 
external storage can use direct access I/0 
effectively. An even better example of a 
Girect access application is one that uses 
a data set that is updated frequently 
Records in the data set that are updated 
frequently are called master records. 
Records in other data sets used to update 
the master records are called detail 
records. 


Each of the master records should con- 
tain a unique identification that distin- 
guishes this record from any other master 
record. Detail records used to update the 
masters should contain an identification 
field that identifies a detail record with 
a master record. For example, astronomers 
might have assigned unique numbers to some 
stars and wish to collect data for each 
Star ona data set. The unique number for 
each star can be used as identification for 
each master record. Any detail record used 
to update a master record for a star would 
have to contain the same number as the 
Star. 


A FORTRAN program indicates which record 
to FIND, READ or WRITE by its’ record 
position within the data set. The ideal 
Situation would be to use the unigue record 
identification as the record position. 
However, in most cases this is impractical. 
The solution to this problem is a randomiz- 
ing technique. A randomizing technique is 
a function which operates on the identifi- 
cation field and converts it to a record 
position. For example, if 6-digit numbers 
are assigned to each star, the randomizing 
technique may truncate the last two digits 
of the number assigned to the star and use 
the remaining four digits as a record 
position. For example, star number 383320 
would be assigned position 3833. Another 
example of a randomizing technique would be 
a mathematical operation performed on the 
identification number, such as squaring the 
identification number and truncating the 
first four digits and the last four digits 
of the result. Then the record for. star 
number 383320 is assigned record position 
3422. There is no general randomizing 
technique for all sets of identification 
numbers. The programmer must devise his 
own technique for a given set of identifi- 
cation numbers 


Two problems arise when randomizing 
techniques are used. The first problem is 
that there may be a lot of space wasted on 
the volume. The solution in this instance 
must be developed within the randomizing 
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Figure 52. Record Chaining 


technique itself. For example, if the last 
two digits on the identification numbers 
for stars are truncated and no star numbers 
begin with zero, the first 1000 record 
positions are blank. Then a step should be 
added to the randomizing technique to sub- 
tract 999 from the result of the 
truncation. 


The second problem is that more than one 
identification may randomize to the same 
record location. For example, if the last 
two digits are truncated, the stars identi- 
fied by numbers 383320, 383396, and 383352 
randomize to the same record location -- 
3833. Records that randomize to the same 
record location are called synonyms. This 
problem can be solved by developing a 
different randomizing technique. However, 
in some situations this is difficult, and 
the problem must be solved by chaining. 


Chaining is arranging records in a 
string by reserving an integer variable in 
each record to point to another record. 
This integer variable will contain either 
an indicator showing that there are no more 
records in this chain, or the record loca- 
tion of the next record in the chain. 
Records chained together are not adjacent 
to each other. Figure 52 shows the records 
for star numbers 383320, 383396, and 
383352 





When records are chained, the first 
record encountered for a record position is 
written in the record position that 
resulted from randomizing the identifica- 
tion number. Any records that then ran- 


domize to that same record location must be 
written in record positions to which no 
other record identifications randomize. 
The space for these synonyms can be allo- 
cated either at the end or the beginning of 
the data set. However, this space must be 
allocated when the data set is first writ- 
ten. For example, if the randomizing tech- 
nique assigns master records to record 
locations between 1 and 9999, the program 
mer may wish to reserve record locations 
10000 to 12000 for master records’ that 
become synonyms. 


The programmer must keep a record loca- 
tion counter to keep track of the space 
assigned for synonyms. When a synonym is 
inserted in this space, the record location 
counter must be incremented. The programm- 
er should set up a dummy record in his data 
set to maintain this record location count- 
er. When the direct access data set is 
created, the record location counter should 
be set at the lower limit of the record 
positions available for synonyms (i.e , 
record location 10000 in the example used 
above). 


indicator should be 
to the program that 


In addition, an 
reserved to indicate 


the end of a chain has been reached. Since 
no record position is designated as 0, 
0 can be used to indicate the end of a 


chain. 


Before a FORTRAN program writes a direct 
access data set for the first time, the 
data set must be created by writing 
"skeleton records" in the space that is to 
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be allocated for the direct access data 
set. These skeleton records should be 
written by an installation-written program. 
After the skeleton records are written, the 
direct access data set must be classified 
as OLD in the DISP parameter of the DD 
statement. However, if the skeleton reco- 
rds are not written before direct access 
records are written by the FORTRAN program 
for the first time, a FORTRAN load module 
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automatically creates the data set and 
writes the skeleton records. The programm- 
er indicates that skeleton records have not 
been written by specifying NEW in the DISP 
parameter. A FORTRAN load module writes 
skeleton records according to the format 
described in the Supervisor and Data Man- 
agement Services publication, Form 
C28-6646. 


Figure 53 shows a block diagram of the 
logic that can be used to write a direct 
access data set for the first time. The 
block diagram does not show any attempt to 
write skeleton records. 


Example 4 in Appendix A shows a program 
and job control statements used to update a 
direct access data set. 


Direct Access Programming Considerations 


In a job that creates a data set which 
will reside on a direct-access device, the 
DCB subparameter of the DD statement must 
specify DSORG = DA in order that the label 
that is created will indicate that this is 
a direct-access data set (see "Creating a 
Direct Data Set" in the publication IBM 


System/360 Operating System: Supervisor and 
Data Management Services, Form C28-6646). 


Space must be allocated in the SPACE 
parameter of the DD statement for a data 
set written on a direct access volume. For 
direct access data sets, the space allocat- 
ed in the SPACE parameter should be consis- 
tent with the record length and number of 
records specified in the DEFINE FILE state- 
ment in the FORTRAN program. For example, 
in the DEFINE FILE statement 


DEFINE FILE 8(1000,40,E,T) 


the number of records is specified as 1000 
and the record length is specified as 40. 
When this program is executed the DD state- 
ment for this data set should contain the 
SPACE parameter 


SPACE (40, (1000) ) 


indicating that Space is allocated for 1000 
records, and 40 bytes for each record. 


The DEFINE FILE statement for a data set 
must be in a source module in the root 
segment (i.e., it cannot be overlaid), but 
does not have to be in the same source 
module in which I/O operations occur. For 
example, the DEFINE FILE statement can be 
given in a main program with a subprogram 
performing the I/O operations on the data 
set. However, if an associated variable 
defined in the main program is to be used 
by a subprogram, it must be passed to the 
subprogram in COMMON. Since an associated 
variable is updated by input/output opera- 
tions, the subprogram cannot get to the 
updated value to make use of it in its 


Operations unless the associated variable 


is in COMMON. 


The FIND statement permits record 
retrieval to occur concurrently with compu- 
tation or I/O operations performed on dif- 
ferent data sets. By using the FIND state- 
ment, load module execution time can be 
decreased. For example, the statements 


10 A=SQRT(X) 


52 E=ALPHA+BETA*SIN(Y) 
64 WRITE(9)A,B,C,D,E 
76 READ(8'101)X,Y 


are inefficient because computations are 
performed between statements 10 and 52 and 
an I/O operation is performed on another 
data set while record number 101 could be 
retrieved. If the following statements are 
substituted, the execution of this module 
becomes more efficient because record num- 
ber 101 is retrieved during computation and 
I/O operations on other data sets: 


5 FIND(8‘'101) 
10 A=SQRT (X) 


52  E=ALPHA+BETA*SIN(Y) 
64 WRITE(9)A,B,C,D,E 
76 READ(8‘'101)X,Y 


How Arguments Are Passed 


Although the programmer cannot alter the 
method for passing arguments to a subpro- 
gram, knowing how arguments are passed may 
be valuable when he debugs his program. A 


main program passes arguments to a_ subpro- 
gram in two ways. 
The first method is called "call by 


value." When this method is used, the main 
program moves the value currently residing 
in the argument in the main program into 
the location assigned to the argument in 
the subprogram. When the subprogram 
returns to the main program, the value of 
the argument in the subprogram is moved to 
the location of the argument in the main 
program. In FORTRAN (E), only variables 
are passed using "call by value." 
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The second method is called "call by 
name." When this method is used, the main 
program moves an address into the location 
assigned to the argument in the subprogram. 
In FORTRAN (E), arrays and subprograms, 
used aS arguments, are passed using "call 
by name." The main program moves’ the 
address of the first element in the array 
into the subprogram or moves the address of 
the entry point of the subprogram, used as 
an argument, into the subprogram. 


CD STATEMENT CONSIDERATIONS 


Several DD statement parameters and sub- 
parameters are provided for I/O optimiza- 
tion (see Figure 54). Other DD statement 
parameters are discussed in "Job Control 
Language" and "Creating Data Sets." 


The SEP parameter indicates that I/O 
operations for specified data sets are to 
use separate channels (channel separation), 
if possible. The I/O operations for the 
data set, defined by the DD statement, in 
which 


SEP= (ddname[{,ddname]...) 
appears, are assigned to a channel 
different from those assigned to the 


I/O operations for data sets defined 
by the DD statements "ddname". 
Assigning data sets whose I/O opera- 


tions occur at the same time to dif- 
ferent channelS decreases the time 
required for I/O operations. 


I/O Device Optimization 


UNIT subparameters can be specified for 
device optimization. 


VOLUME MOUNTING AND DEVICE SEPARATION: 


mn 
untrs(name|! P| [, DEFER] 


[, SEP=(ddname[,ddname]}...)]) 


can be specified for volume mounting 
and device separation. The "name" and 
number of units are discussed in the 
section "Data Definition Statement." 


DEFER 
indicates that the volume(s) for the 
data set need not be mounted until 
needed. The control program notifies 
the operator when to mount the volume. 
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SEP=(ddname[,ddname]...1) ? 


UNIT= one 


average-record-length 


(namel, n|P 31(,DEFER] [,SEP=(ddname(,ddnamel...+) 214 ot 
SPACE= (ABSTR, (quantity, beginning-address[,directory-quantity])) 
ieee 
SPLIT=(n| l,average-record-lengthf, (primary-quantity[,secondary-quantity])]) 


TRK 
susanioc= (fev }. tpramary-guantity (,2econdary-quantsty! 


|2The maximum number of repetitions allowed is 7. 


|3If neither "n" nor "P" is specified, 1 is assumed. 
|“This subparameter is applicable only for direct-access devices. 


{|SThis subparameter is the 


Ee eT ee ee PONE Oe ee eet PE EA OE AE A eee erred 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 

ddname | 

( directory-quantity)),Jevepnane.dnane 

stepname.procstep.ddname | 

| 

Ce Nae al neater egal ese Se Sa | 

| 

|2If£ only one “ddname" is specified, the delimiting parentheses may be omitted. | 
| 

only keyword subparameter shown in this figure. All the | 

are| 


| remaining subparameters shown in the UNIT, SPACE, SPLIT, and SUBALLOC parameters 


| positional subparameters. 


|SIf only "name" is specified, the delimiting parentheses may be omitted. | 


Figure 54. 


SEP= (ddnamel[, ddname]...) 

is used when a data set is not to be 
assigned to the same access arms on 
direct access devices as the data sets 
identified by the list of ddnames. 
This subparameter is used to decrease 
access time for data sets. This para- 
meter is meaningful only for data 
sets residing on direct access 
volumes. The SEP subparameter in the 
UNIT parameter provides for device 
separation, while the SEP parameter 
provides for channel spearation. 


DEVICE AFFINITY: The use of the 
device by data sets is specified by 


same 


UNIT=AFF=ddname 
the data set defined by the DD 
ment in which the 
appears uses the same device as the 
data set defined by the DD statement 
“ddname" in the current job step. 


state- 
AFF subparameter 


Direct-Access Space Optimization 


The SPACE parameter discussed in "Creat- 
ing Data Sets" is used to allocate space on 
a volume. Another form of the SPACE para- 
meter may also be used to specify space 
beginning at a designated track address on 
a direct access’ volume. The SPLIT or 
SUBALLOC parameters may be specified 


DD Statement Parameters for Optimization 


instead of SPACE to split the use of 
cylinders among data sets on a direct 
access volume or to use space specified for 
another data set which that data set did 
not use. 


SPACE BEGINNING AT A SPECIFIED ADDRESS: 


SPACE=(ABSTR, quantity, beginning-address 
[,directory-quantity]) 


Specifies space beginning at a partic- 
ular address on a direct access 
volume. The "quantity" is the number 
of tracks allocated to the data _ set. 
The “beginning address" is the track 
address on a direct access volume 
where the space begins. If the data 
set is a partitioned data set, the 
"directory quantity" specifies the 
number of records allocated to the 
directory. 


SPLITTING THE USE OF CYLINDERS AMONG DATA 
SETS: If several sequential data sets ina 
step use the same direct access volume, 
processing time can be saved by splitting 
the use of cylinders among the data _ sets. 
Splitting cylinders eliminates seek opera- 
tions on separate cylinders for different 
data sets. Seek operations are measured in 
milliseconds, while the data transfer is 
measured in microseconds. Direct access 
and partitioned data sets cannot be created 
using the SPLIT parameter. 
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ieee 

SPLIT=(n| (|, average-record-length 
. (primary-quantity 
[,secondary-quantity]) ]) 


is substituted for the SPACE parameter 
when the use of cylinders is split. 
If CYL is specified, “n" indicates the 
number of tracks per cylinder to be 
used for this data set. If “average 
record length" is specified, “n" indi- 
cates the percentage of tracks per 


cylinder used for this data set. The 

remaining subparameters are the same 

as those specified for SPACE in 
"Creating Data Sets." | 

More than one DD statement in ae step 

will use the SPLIT parameter. However, 

only the first DD statement specifies all 


the subparameters; the remaining DD state- 
ments need only specify "n". For example: 


//STEP4Y EXEC PGM=TESTFI 
//FTO8F001 DD SPLIT=(45, 800, (100, 25)) 


//¥T1ITFO01 DD SPLIT=(35) 


//¥T23F001 DD SPLIT=(20) 


ACCESSING UNUSED SPACE: Data sets in the 
current step or previous steps may not have 
used all the space allocated to them by a 
DD statement. The SUBALLOC parameter may 
be substituted for the SPACE parameter to 
permit a new data set to use this unused 


space. 


TRK ; 
SUBALLOC= {(j CYL 5 
average-record-length 


(primary-quantity, 
[, secondary-quantity] 


{,directory-quantity]), 


ddname 
stepname.ddname ) 
stepname.procstep.ddname 


The data set from which unused _ space 
is taken is defined in the DD state- 
ment “ddname", which appears in the 
Step “stepname." (The step must be in 
the current job.) The other subparam- 
eters specified in the SUBALLOC param- 
eter. are the same as the subparam- 
eters described for SPACE in "Creating 
Data Sets." 
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Priority Scheduler Considerations for 
Cataloged Procedures 


If, during system generation, the 
installation selects a priority scheduler 
and an operating system that provides mul- 
tiprogramming with a variable number of 
tasks (MVT), the following information must 
be taken into consideration when writing 
FORTRAN programs. 


1. The PRFRM option must be in effect for 
the compile step, either by default or 
by explicit request in the compiler 
job step PARM field. Similarly, the 
SIZE allocation must be at least 19, 
456 bytes. This figure assumes. no 
blocking. If the input is blocked 
(e.g., by an input reader), a figure 
that is 160 times the blocking factor 
must be added to the 19,456-byte Spec- 
ification in the SIZE option. Fora 
compile step, REGION must be at least 
16K bytes greater than the compiler 
SIZE specified in the PARM field (or 
default SIZE). 


2. If the default or 
parameter is not sufficient for a 
particular compile, link edit, or 
execute job step, an adequate REGION 
must be specified on the appropriate 
JOB or EXEC card. For a link edit 
Step, the specification for REGION 
depends on which linkage editor is 
used (see "Linkage Editor 
Restrictions"). 


cataloged REGION 


Linkage Editor REGION 
- TEWLE150 24K 


TEWLE180 26K 
TEWLE440 54K 


3. DCB BLKSIZE parameters must be 
fied on the DD cards for SYSLIN, 
SYSPUNCH, and SYSPRINT. For SYSPRINT, 
this block size is 121; for SYSPUNCH 
it is 80. The blocking factor deter- 
mines the specification for SYSLIN, 
but it must be specified as a multiple 
of 80. If this figure is added to the 
SIZE specification, it must also be 
added to that for REGION. 


speci- 


4. Compiler data sets handled by output 
writers cannot be blocked (e.g., SYS- 
PRINT and SYSPUNCH). 


5. All FORTRAN programs, upon completion 
of processing, must use either a STOP 
statement or a CALL statement using 
the entry name EXIT. The omission of 
STOP or CALL EXIT in a FORTRAN (E) 
program will result in failure to 
clear buffers for all FORTRAN data 
sets used in the execution of the job; 
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therefore, with blocked output, a 
block of print lines could be lost. 


LIBRARY CONSIDERATIONS 


The FORTRAN library is a group of sub- 
programs residing in the partitioned data 
set SYS1.FORTLIB. For a detailed descrip- 
tion of the FORTRAN library, see the publi- 
cation IBM System/360 FORTRAN IV Library 
Subprograms, Form C28-6596. A programmer 
can change the subprograms in the library; 
he can add, delete, or substitute library 
Subprograms; or he can create his own 
library. These topics are discussed in 
detail in the section "Moving and Copying 
Data" in the Utilities publication. 


When the FORTRAN library is changed 
either for maintenance or to provide addi- 
tional features, precompiled programs in a 
user library require special attention to 
benefit from the changed library modules. 
This can be accomplished by using the 
linkage edit facilities to include the 
current library modules and to store the 
resultant load module back into the FORTRAN 
library. When the facilities of the lin- 
kage editor are used to provide an overlay 
structure or to replace a single control 
section, care should be taken not to mix 
FORTRAN library modules that are at. diverse 
operating system levels. This warning app- 
lies especially to the library modules 
created when FORTRAN E selects the extended 
error message facility at system generation 
time and uses the FORTRAN G or H library. 


COMPILER RESTRICTIONS 


Table 14 shows the average number of 
source statements that can be compiled by 
the FORTRAN compiler with regard to the 
SPACE and PRFRM option and the size (in 
bytes) of the Dictionary and the Overflow 
Table used by the compiler. The Dictionary 
and the Overflow Table are used by the 
compiler to contain information concerning 
variables, arrays, subscripts, functions, 
data set reference numbers, statement num- 
bers, etc. 


The Dictionary and the Overflow Table 
size in bytes, S, required to compile a 
number of source statements, xy is 
approximately 

S=10X+500 


The following is a 
restrictions: 


list of compiler 


e The maximum number of variables’ that 
may be equated in EQUIVALENCE state- 
ments is approximately 100: For compi- 
lations in which the largest unused 
portion of the Dictionary and the Over- 
flow Table exceeds 800 bytes, the maxi- 
mum becomes the number of bytes in this 
segment divided by 8. For example, if 
the compiler allocates 5500 bytes’ to 
the Dictionary and the Overflow Table, 
and 3100 are used, then the maximum 
becomes 2400/8=300. 


e The maximum number of names for vari- 
ables and arrays that may appear in an 
I/O list iS approximately 250. 


e The maximum number 
Subprogram call or 
tion is 48. 


of arguments ina 
Subprogram defini- 


e The maximum level of 
loops is 25. 


nesting for DO 


e The maximum number of statement numbers 
in a computed GO TO statement is appro- 
Ximately 250. 

e The maximum number of records allowed 

in a direct access data set is 

224 (224%=16,777, 216). 


e The maximum size of an array is 131,071 
bytes. 


e The maximum total program and data size 
(including COMMON) is 196,608 bytes. 


e The total number of statement numbers 
referred to (excluding FORMAT statement 
numbers), DO statements, and statement 
functions cannot exceed 1000. 


e The number of arguments in a statement 
function cannot exceed 15. 
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Table 14. Source Module Size Restrictions 
T 1 
|Average Number of [Dictionary and Intermediate Text Capacity (in bytes) | 
|SIZE Option |Source Statements | Overflow Table 
| [that Can be Compiled|Size (in bytes) | 


----- SU REE ER TE ETIEe LEREEETITa TEESE REER EP TEREEL SERED TaERRTEDEETER 
|SPACE|PRFRM1| SPACE | PRFRM | SPACE | PRFRM |Buffer Size|Buffer Size| In Storage? | 
-----}------ ---------}----------}-------}-------}-----------4----------- 4 -------------| 
| 15K | 19K | 170 | 170 | 2216 | 2216 | 104 | 96 | 0 | 
} 44K | 48K | 2500 | 1980 } 25512 | 20328 | 1704 | 1696 | 5184 | 
| 86K | 90K | 6500 | 6500 | 65536 | 65536 | 1704 | 1696 | 8104 | 
}200K | 204K | 6500 | 6500 | 65536 | 65536 | 1704 | 1696 | 119720 | 
ar aE a ae a tee e bipennate Mee 
|2If blocked input and output are used, the value of the expression [2*(BLKSIZE)] must| 
| be added for each data set that contains blocked records to the number shown under the| 
| PRFRM option. | 
|2The figures under "In Storage" indicate how many additional bytes are available for| 
| retaining the intermediate text in main storage before the text has to be written on| 
| external storage. If the storage required for intermediate text does not exceed this| 
| figure, no I/O operations are performed for the intermediate text. | 
a eas aa a aaa a ae ea ee a ere lg J 


LINKAGE EDITOR RESTRICTIONS 


The maximum number of load modules and 


FORTRAN LOAD MODULE RESTRICTIONS 


The following is a list of FORTRAN load 
module restrictions: 


object modules that can be processed by 
each linkage editor varies according to the 
number of bytes of main storage reserved 
for linkage editor operations. This maxi- 


A FORTRAN load module cannot read past 


mum is shown below for each of the three the end of a data set. 
linkage editors. 

e For the EXP and DEXP library functions, 
[moon - 7 -- - .----------- 1 the argument cannot exceed 174.673. 
| Linkage Editor | Bytes Reserved | | 
| Name |for Operation | Maximum | e For the SIN and COS library functions, 
-}--------—--—---- 4—--—---—-------- +----—------- 4 the absolute value of the argument 
| | 15K | 119 | cannot exceed 
| IEWLE150 -}-—--—--—--——-—------ 4+—--~---—----- 4 2180 x (218e x =.82354966406249996D+06). 
| | 18K | 229 | 
}—-————————————— 4-----—--—---~—-~—-—4---~-------- | e For the DSIN and DCOS library func- 
| | 18K | 75 | tions, the absolute value of the argu- 
| ZTEWLE180 }----—--—~—-—----—_— 4+----------- 4 ment cannot exceed 
| | 20K | 140 | 2500 x (2590 x=, 35371188737802239D+16). 
|-------------- }-------------- }----------- 4 
| | QW“UkK | 349 | e The minimum record length for records 
| IEWLEY4O }-—-----—--—----- 4+-—---------- 4 written on a magnetic tape volume is 
| | 88K | 1250 | 18. The minimum record length for 
Le 1 ——-——--—-—-~—- 4-—-——-——~—-——- J records read from a magnetic tape 

volume is 12. 

Object modules processed by the linkage e A data set reference number cannot 
editor cannot exceed 512K bytes, because exceed the maximum data set reference 
this is the maximum that can be processed number specified by the installation 


by program FETCH. 
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when the system is generated. 


The compiler, linkage editor, and load 
modules produce aids which may be used to 
document and debug programs. This section 
describes the listings, maps, card decks, 
and error messages produced by these compo- 
nents of the operating system. 


COMPILER OUTPUT 


The compiler can generate a listing of 
source statements, a storage map showing 
the location of variables and constants in 
the object module, and an object module 
card deck. Source module diagnostic mes- 
sages are also produced during compilation. 


Source Listing 


If the SOURCE option is specified or 
assumed, the source listing is written by 
the output device specified in the SYSPRINT 
DD statement. A sequential internal state- 
ment number: 


S.nnnn (1<nnnn<9999) 

is assigned to each source statement. 
(Comments and continuation cards are not 
assigned an internal statement number.) 


The internal statement number is then used 
in the diagnostic messages to indicate 
erroneous statements in the source program. 
An example of a source program listing is 
Shown in Figure 55. This printout is the 
source listing of Sample Program 1 shown in 





SYSTEM OUTPUT 


Storage Map 


If the MAP option is specified, a _ stor- 
age map of the object module is written on 
the data set specified by the SYSPRINT DD 
card. The storage map gives a listing of: 


1. The relative addresses and names of 
all variables, including subprogram 
names and in-line subprogram names. 


2. The relative addresses and names of 
all external references, including all 
Subprograms, except in-line subpro- 
grams. 

3. All user-specified literal constants 


and their relative addresses. 


4. All compiler-generated constants and 
their relative addresses. 


5. A branch list consisting of all state- 
ment numbers referred to and their 
relative addresses. 


An example of a map printout is shown in 
Figure 56. This printout is the source 
module map of Sample Program 1 shown in 
"Appendix D" of the publication Basic 
FORTRAN IV Language. 


ee ea ee SY ARE ENP AEKES GED oe 


The compiler produces an object module. 
This module is composed of four types of 
card images -- TXT, RLD, ESD, and END. If 
the DECK option is specified, the object 
module is written on the device specified 





"Appendix D" of the publication Basic 
FORTRAN IV Language. 
C PRIME NUMBER PROBLEM 
S.0Q001 L100 WRITE (6,8) 
5.0002 8 FORMAT (52H FOLLOWING IS A LIST GF PRIME NUMBERS FROM 1 TO 1000/ 
LLOX, LHL/19X_ 1LH2/19Xy 1H3) 

5.0003 101 I=5 

$.0004 3 A=I 

5.0905 102 A=SQRT(A) 

5.0006 103 J=A 

$,0007 104 DO 1 K=3yJy2 

$-0008 105 L=I/K 

5.0009 106 [F(L¥K-1) 19254 

5.0CLO 1 CONTINUE 

$.0011 LO7 WRITE (6,501 

$0012 5 FORMAT (120) 

§.0013 2 [= +2 

$0014 108 IF(1000-1)77443 

$0015 4 WRITE (6,9) 

S.GOL6 9 FORMAT (14H PROGRAM ERROR) 

S.O001L7 7 WRITE (6,6) 

5.0018 6 FORMAT (3LH THIS IS THE END OF THE PROGRAM) 

$0019 109 sToP : 

5.0020 END 
Figure 55. Source Module Listing 
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STORAGE MAP VARTABLES (TAGSO C=COMMON, E=EQUI VALENCE) 




















NAME TAG REL ADR NAME TAG REL ADR NAME TAG REL AOR NA ME- TAG REL ADR 


I 000154 A 000158 J O0015C K 000160 
L 000164 


EXTERNAL REFERENCES 


NAME REL ADR NAME REL ADR NAME REL ADR NAME REL ADR 
SQRT 000168 

CONSTANTS 
NAME REL ADR NAME REL ADR NAME ReL ADR NAME REL ADR 
00000005 000184 00000002 000188 000003E8 Ooo1S8C 


[IMPLIED EXTERNAL REFERENCES 


NAME REL ADR NAME REL ADR NAME REL ADR NAME REL ADR 

IBCOM# 000220 

STATEMENT NUMBER REL ADR STATEMENT NUMBER REL ADR STATEMENT NUMBER REL ADR STATEMENT NUMBER REL ADR 
00100 000256 00190 000256 00008 099190 OOL0L 00026C 
00003 000274 00102 000294 00103 0002A6 OO1L04% 0002C4 
00105 0002CC 00106 O002DC OO00L O0002F4 OOLO7 090308 
00005 0001LDC 00002 000324 00108 000330 00004 000344 


00009 OOO1LEO 00007 000358 Q0006 OOOLF4 00109 00036C 






Figure 56. Storage Map 


in the SYSPUNCH DD statement; if LOAD is external references, the storage at the 
specified, the module is written on the address indicated in the RLD card image 


device specified in the SYSLIN DD _ state- contains the address assigned to the sub- 
ment. A functional description of these program indicated in the ESD, type 2 card 
card images is given in the following image. RLD card images are also generated 
paragraphs. for a branch list produced for statement 


numbers, DO loops, and Statement Functions. 
OBJECT MODULE CARD IMAGFS: Every card 
image in the object module contains a TXT Card Image: The TXT card image con- 
12-2-9 punch in column 1 and an identifier tains the constants used by the programmer 
in columns 2 through 4. The identifier in his source module, any constants gener- 
consists of the characters ESD, RLD, TXT or ated by the compiler, coded information for 
END. The first four characters of the name FORMAT statements, and the machine instruc- 
of the program are placed in columns 73 tions generated by the compiler from the 
through 76 with the sequence number of the source module. 
card in columns 77-80. 


END Card Image: One END card image is 
ESD Card: Three types of ESD card images generated for each compiled source module. 
are generated: This card indicates the end of the object 
module to the linkage editor, and contains 
ESD, type 0 - contains the name of the pro- the entry point (where control is given to 
gram and indicates the begin- begin execution of the module after it is 
ning of the object module. link edited). 
ESD, type 2 - contains the names of subpro- OBJECT MODULE DECK STRUCTURE: Figure 57 
grams referred to by CALL indicates the FORTRAN object module deck 
Statements, EXTERNAL state- Structure. If the object module is written 
ments, and function refer- on a device other than the card punch, the 
ences in the source program. Structure of the module is the same. 


ESD, type 5 - contains information about 
the COMMON area. 
Source Module Diagnostics 
The number 0, 2, or 5 is placed in card 
column 25. | 
Two types of diagnostic messages are 


RLD Card Image: An RLD card image is generated by the compiler - informative and 
generated for external references indicated error/warning messages. 

in the ESD, type 2 card images. To com- 

plete external references, the addresses in Source Module Informative Messages: Source 
the RLD card image are matched with exter- module messages tell the programmer or 
nal symbols in the ESD card images by the operator about the status of the compiler. 
linkage editor. When it has resolved A message is generated when the compilation 
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TXT Cards 
for Source 
Module Constants 


ESD, Type 2, and 
RLD for External 
References in 

CALL, EXTERNAL, 
and Statements 

Using Subprograms 









ESD, Type 5, 
Indicating the 
Existence of the 


COMMON Area 







ESD, Type 0 
Giving the Name 
of the Object 
Module 


Module Instructions 


TXT Cards 
for Compiler 
Generated Constants 


ESD, Type 2 and 
RLD for Compiler 
Generated External 
References 


TXT Cards for 
Coded FORMAT 







END Card, giving 
the entry point 
for the module 








RLD Cards for 
the Branch List 


TXT Cards for 
the Branch List 


TXT Cards 
for Object 


has begun, when the compiler options are 
processed, and at the end of compilation. 
For a description of these messages, see 


"Appendix D." 


Source Module Error/Warning Messages: All 
error/warning messages produced are written 


in a group following the source module 
listing and storage map. Figure 58 shows 
the format of each message as it is written 


on the data set specified by the SYSPRINT 
DD statement. 


When error conditions cannot be ascribed 
to a Single source statement, the error 
message contains an internal statement num- 
ber S.0000. For example, in the FORTRAN 
statements 


DOUBLE PRECISION DP 
COMMON R,DP 


the error message 


ITEJ146I1 S.0000 INCONSISTENT EQUATE 


is issued, because a double-precision vari- 
able is not placed on the proper boundary. 
The error could be attributed to either 
FORTRAN statement, so the internal state- 
ment number S.0000 iS asSigned to the error 


Figure 57. Object Module Deck Structure Message 
There are two types of error/warning 
messages: serious error messages and warn- 
ing messages beginning with the word 
"WARNING". Serious error messages transmit 
a condition code of 8, 12, or 16. Warning 
messages transmit a condition code of 4. 
Ce rr paw Se ee ee ge ee Fg er ee 1 
MESSAGE NUMBER STATEMENT NUMBER DESCRIPTION | 
| [EJnnnI S.XXXX message | 
[~~ 2 nn nnn nnn nnn nn nnn nnn nn nnn nr nn nnn nnn nn nn nnn nn nnn nnn nn { 
| nnn is the message number | 
| XXXX is the internal statement number | 
| message is the actual message printed | 
Me a ac at aa he ear et J 


Figure 58. Format of 


Diagnostic Messages 
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For a description of error/warning mes- 
sages, see “Appendix D." 


LINKAGE EDITOR OUTPUT 


The linkage editor produces a map of a 
load module if the MAP option is specified, 
Or a cross-reference list and a map if the 
XREF option is specified. The linkage 
editor also produces diagnostic messages, 
which are discussed in the “Appendix D" of 
the publication Linkage Editor. 


Module Map 


The module map is written on the data 
set specified in the SYSPRINT DD statement 
for the linkage editor. To the linkage 
editor, each program (main or subprogram) 
and the COMMON area are control sections. 


Bach control section name is written 
along with origin and length of the control 


section. For a program, the name is list- 
ed; for COMMON, the name SBLANKCOM is 
listed. The origin and length of a control 


section is written in hexadecimal numbers. 
A segment number is also listed for overlay 
Structures (see the publication Linkage 
Editor). 


The names and locations of each control 
section and entry points and their loca- 
tions are also written; any functions 
called from the data set specified by the 


SYSLIB DD statement are listed and marked 


by asterisks. 


The total length and entry point of the 
load module are also listed. 


Figure 59 shows a load module map _ for 


Sample Program 1 shown in Appendix D of the 
publication Basic FORTRAN IV Language. 


Cross-Reference List 


If the option xXREF is specified, a 
cross-reference list 1S written with the 
module map. This cross-reference list 


gives the location from which an external 


reference is made, the symbol externally 
referenced in this control section, the 
control section in which the symbol 
appears, and the segment number of the 
control section in which the symbol 
appears. Unless the linkage editor is 


building an overlay structure, the cross- 
reference list appears after the module map 
for all control sections. 


Figure 60 shows the cross-reference list 
and module map for Sample Program 1 shown 
in "Appendix D" of the publication Basic 
FORTRAN IV Language. 


LOAD MODULE OUTPUT 


defines the output data 
execution in READ, 


The programmer 
sets for load module 


---- MODULE MAP ---- 


CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME  LDCATION 
MAIN 00 37A 
IHCSSGRT* 380 AC 
SQRT 380 
THCFCQME* 430 1484 
| I BCOM# 430 FDIOCS# 460 
IHCFIOSH* 1888 C50 
FlOcS# 1888 
THCUATBL* 2508 638 
ENTRY ADDRESS 00 
TOTAL LENGTH 2B40 
Figure 59. Module Map 
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—---- CROSS REFERENCE TABLE ---- 


CONTROL SECTION 


NAME ORIGIN LENGTH LOCATION 
MAIN 00 37A 
THC SSQRT* 380 AC 

SQRT 380 
THCFCOME x 430 1484 


[BCOM# 430 


[THCF IOSH* 1888 C50 
FLOCS# 18B8 
THCUATBL* 2508 638 


LOCATION REFERS TO SYMBOL IN CONTROL SECTIGN 
168 SQRT 
220 [BCOM# 
404 [BC OM# 
A5C FIOCS# 
CFC FIOCS# 
19DC THC UATBL 
L9E8 [BCOM# 

ENTRY ADDRESS 00 

TOTAL LENGTH 2840 


THC SSQRT 
THCFCOME 
THCFCOQME 
THCFLOSH 
THOFLIOSH 
THCUATBL 
THCFCOME 


Figure 60. 


WRITE, and FORMAT statements. At execution 
time, FORTRAN load module diagnostics are 
generated in three forms - error code 
diagnostics, program interrupt messages, 
and Operator messages. An error code 
indicates an input/output error or a misuse 
Of a FORTRAN library function. A program 
interrupt message (which is a special form 
of an error code diagnostic) indicates a 
condition which System/360 cannot correct. 
An Operator message iS generated when a 
STOP or PAUSE is executed. 


Error Code Diagnostics 


When an error condition arises during 
execution of a FORTRAN load module, a 
message of the form 
IHCxxxI (message text] 
is printed. The error code is the number 
specified by the digits xxx. With some 
error code diagnostics, a “message text" is 
printed. The error code diagnostics are 
described in Appendix D. 


The error code diagnostics are written 


on a data set specified by the programmer. 
(See “Job Processing.") 


Program Interrupt Messages 


containing 
(PSW) are 


Program 
the old program 


interrupt messages 
status word 


NAME LOCATION NAME 





LOCATION NAME LOCATION 


FOLOCS# 


Linkage Editor Cross-Reference List 


written when an exception occurs. Operator 
intervention iS not required for any of 
these exceptions (interrupts), and execu- 
tion is not terminated. The program inter- 
rupt messages are written on a data _ set 
specified by the programmer (see "Job Proc- 
esSsing.") For a detailed description of 


|these messages, see Appendix D. 


ABEND Dump 


If a program interrupt occurs that caus- 
es abnormal termination of a load module, 
an indicative dump is given (i.e., only the 
contents of Significant registers, indica- 
tors, etc., are dumped). However, if a 
programmer adds the statement: 


//GO.SYSABEND DD SYSOUT=A 


to the execute step of a cataloged proce- 
dure, all main storage and registers are 
dumped. For information about interpreting 
the indicative and abnormal terminaticn 


dumps, see Part V of the Messages, Comple- 


Operator Messages 


A message is transmitted to the operator 
when a STOP or PAUSE is encountered during 
load module execution. Operator messages 
are written on the device specified for 
operator communication. For a description 
of these messages, see Appendix D. 
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The following examples’ show several 
methods to process load modules. Example 1 
consists of a single job step that uses 
blocked variable-length records as output 
in a matrix inversion application. Example 
2 shows the rocket firing example used in 
the "Introduction" to show job and job step 
relationships. Example 3 uses a generation 
data group to report and forecast the 
weather. Example 4 showS a program to 
update a direct access data set that con- 
tains star master records. 


Example 1 


Problem Statement: 
A previously created and cataloged data set 
SCIENCE.MATH.MATRICES contains 80 matrices. 









SCIENCE. 
MATH, 
INVMATRS 









MATINV 







Printed 
Output 


Figure 61. Input/Output Flow for Example 1 


APPENDIX A: EXAMPLES OF JOB PROCESSING 


Each matrix iS an array containing real 
variables. The size of the matrices varies 
from 2x2 to 15x15; the average size is 


10x10. The matrices are inverted by a load 
module MATINV in the PDS MATPROGS. Each 
inverted matrix 1S written as ae single 
record on the data set 


SCIENCE.MATH.INVMATRS. The first variable 
in each record denotes the size of the 
matrix. Each inverted matrix is printed. 


The I/O flow for the example is shown in 
Figure 61. The job control statements used 
to define this job are shown in Figure 62. 


The JOB statement identifies 
the programmer as JOHN SMITH and supplies 
the account number 537. The MSGLEVEL  pa- 
rameter indicates that both control state- 
ments and control statement diagnostic mes- 
sages are printed on the console typewrit- 
er. 


Explanation: 


The JOBLIB DD statement indicates that 
the cataloged PDS MATPROGS iS concatenated 
with the system library. 


The EXEC statement indicates that the 
load module MATINV is executed. 


DD statement FTO8FO01 identifies the 
input data set, SCIENCE.MATH.MATRICES. (In 
the load module, data set reference number 
8 is used to read the input data set.) 
Because this data set has been previously 
created and cataloged (DISP=OLD), no other 
information has to be supplied. 


Sample Coding Form 


I-10 11-20 21-30 31-40 41-50 51-60 61-70 71-80 
i {2 [3/4 [5 [el7|s [lol [213[4[5[6|7[s[9 [oli 1213]4[5|6|7[s[slol i [213[4[5l6[7|s[9foli [2]3]4|5|6]7 [slsjoli [2]314[5[6[71s[9ol | [2[3/4{s{e6[7{sislol | |213/4[5{6]7 [s{9{o} 


//INVERT JOB 53759 JOHNSMITH »MSGLEVEL=4 
//JOBLIB DD DSNAME=MATPROGS »DISP=OLD 
//INVERT, EXEC PGM=MATINV 


wa Dee: 





(J FTO8FOO1, DD. DSNAME=SCTENCE.MATH MATRICES »sDISP=OLD 


// FT1GFEOO1, DD SYSOUT=A 


//FTOY4FOOS1, DD DSNAME=SCLENCE.MATH-INVMATRS 9 

iM DISP=(NEWsCATLG ) 9UNIT=DACLASS »VOLUME=SER=1089W 4 

i/ SPACE= (4089 (809), 1 RLSE9 CONTIG ROUND) 9SEP=FTO8FAO1 9 
// DCB=(RECFM=VB, LRECL:908,BLKSI ZE-2729) 


Figure 62. 
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Job Control Statements for Example 1 
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DD statement FT1I0F001 identifies the 
printed output. (In the load module, data 
set reference number 10 is used for printed 
output. ) The data set is written on the 
device class specified in the SYSOUT param- 
eter. The records are then written on a 
device determined by the operator when the 
job is executed. 


DD statement FTO4YFO01 defines the output 
data set. (In the load module, data set 
reference number 4 is used to write the 
data set containing the inverted matrices.) 
Since the data set is created and cataloged 
in this job step, device, volume, space, 
record format, and length information are 
Supplied. 


The DSNAME parameter indicates that the 
data set 1s named SCIENCE.MATH.INVMATRS. 
The DISP parameter indicates that the data 
set is created (NEW) and cataloged (CATLG) 
in this job step. The SPACE parameter 
indicates that space is reserved for 80 
records, 408 characters long (80 matrices 
of average Size). When Space is exhausted, 
space for 9 more records is allocated. The 


Space iS contiguous (CONTIG); any unused 
space is released (RLSE), and allocation 
begins and ends on cylinder boundaries 
(ROUND). 

The DCB parameter indicates blocked 
variable-length records (RECFM), because 


the size of matrices varies. The FORTRAN 
record length is 904, the maximum size of a 
FORTRAN record. The maximum size of a 
FORTRAN record in this data set is the 
maximum number of elements in a matrix 
multiplied by the number of bytes allocated 
for an element (900) plus 4 for the vari- 
able that indicates the size of the matrix. 
LRECL is specified as 908 (the FORTRAN 
record length plus 4 for the segment con- 
trol word used by the operating system for 
a variable-length record). BLKSIZE is 
specified as 2728 (an integral multiple of 
LRECL plus 4 for the block control word 
used for blocked variable-length records). 


The parameter SEP indicates that I/O 
operations for the data set SCIENCE. 
MATH.INVMATRS should use a different chan- 
nel from I/O operations for the data set 
SCIENCE .MATH.MATRICES. 


Example 2 


Problem Statement: A previously created 
data set RAWDATA contains raw data from a 
test firing. A load module PROGRD refines 
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data by comparing the data set RAWDATA 
against a forecasted result, PROJDATA. The 
output of PROGRD is a data set &REFDATA, 
which contains the refined data. 


The refined data is used to develop 
values from which graphs and reports can be 
generated. The load module ANALYZ contains 
a series of equations and uses a previously 
created and cataloged data set PARAMS which 
contains the parameters for these equa- 
tions. ANALYZ creates a data set &VALUES, 
which contains intermediate values. | 


These values are used as input to the 
load module REPORT, which prints graphs and 
reports of the data gathered from the test 
firing. Figure 63 shows the I/O flow for 
this example. It is the same as Figure 1 
in the "Introduction" except that the data 
sets and programs have been assigned the 
names indicated in the preceding text. 
Figure 64 shows the job control statements 
used to process this job. 


The load modules REFDAT, ANALYZ, and 
REPORT are contained in the PDS FIRING. 


Explanation: The JOB statement indicates 
the programmer's name, JOHN SMITH, and that 
control statements and control statement 
errors are printed on the console typewrit- 
er (MSGLEVEL=1). 


RAWDATA 


PROJDATA PROGRD 


REFDATA 


nie 


PARAMS ANALYZ 


at, 


REPORT 


Graphs 


and 


Reports 





Figure 63. I/O Flow for Example 2 


Sample Coding Form 














| t=10sd 11-20 21-30 31-40 41-50. ~—S |i I-60 61-70 71-80 
i [2]314[5[6[7[8]9]0/1 [234/516] 7 [8 9lol [2]3 1415 [6] 7890}! [2]3[4[5]617 18 [9]ol | [2/314 ]5/6[7[siglol | [2[314[516)7 8/9 /ol | [2[3[4[5]6[718[9/o] [213/4]/5]617/8/9]o} 


//TESTFIRE JOB »JOHNSMITH»MSGLEVEL=4 


//JOBLIB DD DSNAME=FIRING®DISP=(OLD PASS) 


// STEP EXEC, PGM=PROGRD 
// FTADFOOL DD DSNAMEFRAWDATA®DISP=OL LD 
//FTL1FO@1, DD DSNAME=PROJDATA9DISP=OLD 





‘lhe 
//FT4,2FO@1, DD DSNAME=&REFDATAsDISP= (NEW>PASS) sUNIT= TAPECLS» 
// VOLUME=( yRETAIN ®SER=21@7),9 
DCB=(DEN=2,RECFM=F9BLKSIZE= 248). 


// ice dil 4 
//STEP2 EXEC PGM= ANALY 2 


iat A Pc She ad) pe ae cha Un 
//FT1,7FOO1, DD DSNAME=*-STEPL.FT412F 001 9DISP=OLD 


//FTL18FOO1, DD DSNAME=PARAMS »DISP=OLD 











¢ Leas a goa [ ees caren toh eee eee an Jo). 
eee sc le wok ies ea Ome ae ier sa re We ee See a 








oe Mt ea Ce bi Eeopel eer eae Mare Ecce Ee ee A As te eG ae ai 
Es a be ft ven tr Ds COO ss oe Ge eGo el Pe 
ooh ese) COREE oe sR Va od ae 
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le GSE se Wo OP eos ee Ps sR 


ee he eek pee ei 
fi Te el Cal Oo 8 














Sa ves el a0 OO 


Ce es LEED, [sere Les tad 


ART pes ee et a oa lb 
//FT2@FOO1, DD DSNAME=SVALUES »DISP=(NEW>PASS) 9UNIT=TAPECLS»9 4 


VE 3.4 DCB=(DEN=29 RECFM= Fo BLKSIZE=204) »VOLUME= =GER=2108 


//STEP3 EXEC PGM=REPORT 





//.FTO8FOO1, DD. DSNAME=X-STEP2. ae OUD tear unaired 


/JFTAOF2O4, DD UNIT= PRINTER 


Figure 64, 


The JOBLIB DD statement indicates that 
the PDS FIRING is concatenated with the 
system library. 


The EXEC statement STFP1 defines the 
first job step in the job, and indicates 
that the load module PROGRD is executed. 


The DD statements FT1LOFO01 and FT11F001 
identify the data sets containing raw data 
(RAWDATA) and the forecasted result 
(PROJDATA), respectively. 


DD statement FT12F001 defines a tempo- 
rary data set, &REFDATA, created for input 
to the second step. (In the load module, 
data set reference number 12 is used to 
write S&REFDATA.) The DISP parameter indi- 
cates that a data set is created (NEW) and 
is passed (PASS). The data set is written 
using the device class TAPFCLS. The VOLUME 
parameter indicates that the volume iden- 
tified by serial number 2107 is used for 
this data set. The DCB parameter indicates 


that the volume is written using high 
density (DEN). The records are fixed- 
length (RECFM). The logical record length 
is 400; therefore, the buffer length 


(BLKSIZE) is specified as 400. 


The EXEC statement STFP2 defines the 
second job step in the job and indicates 
that the load module ANALYZ is executed. 
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Job Control Statements for Example 2 


DD statement FT17F001 identifies the 
data set which contains refined data. The 
DSNAME parameter indicates that the data 
set was created using DD statement FT12F001 
in job step STEP1. The DISP parameter 
indicates that the data set is deleted 
after execution of this job step. The DD 
statement FT18FO01 identifies the 
previously created and cataloged data set 
PARAMS. 


DD statement FT20F001 defines the tempo- 
rary data set &VALUES containing the inter- 
mediate values. The DISP parameter indi- 
cates that the data set is created in this 
step and that it is passed. The data set 
is written on volume 2108 using one of the 
devices assigned to the class TAPECLS. The 
DCB parameter indicates high density (DEN), 
fixed-length records (RECFM). Each record 
is 204 characters long (BLKSIZE). 


The EXEC statement STEP3 defines the 
third job step and indicates that the load 
module REPORT is executed. 


DD statement FTO8FO001 identifies the 
data set containing intermediate values. 
The DSNAME parameter indicates that this 
data set is defined by the DD statement 
FT20F001 in job step STEP2. 
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DD statement FT10F001 indicates that the 
data set reference number 10 is used to 
print the reports and graphs for job step 
three. 


Example 3 


Problem Statement: A generation data 
group, WEATHER, is updated and then several 
of the data sets within the group are used 
to produce a forecast. 


The load module FILECR in the PDS WTHRPR 
reads a card data set and creates a new 
generation data set. The new generation 


contains current data about weather condi- 
tions. FILECR also generates a weather 
report. 


The load module FORCST in the PDS WTHRPR 
then uses the new generation along with 
three other generations of the group to 
forecast the weather. The weather forecast 
is written on the printer. Figure 65 shows 
the input/output flow for the job. 
Figure 66 shows the job control statements. 


| 


Weather 


Conditions 


Weather 


Bee FILECR 


FORCST 


Weather 
Forecast 


Figure 65. I/O Flow for Example 3 


Explanation: The JOB statement defines the 
job WEATHRP to the operating system, and 
indicates that only control statement error 
messages are printed on the console type- 
writer. The JOBLIB DD statement indicates 
that the PDS WTHRPR is concatenated with 
the system library. 





Sample Coding Form 


1-10 LH 


| 21-30 31-40 41-50 [ 5I-60.—” 61-70 71-80 
1 J2[314[5[6[718]9]ol1 [21314[516[7[8]9 10] | [2] 31415]6]7 [8 [9]o} | [21314 15]6]71s8]9/ol | [21314 [Sle]? [s[slol! [2[314[516]7 [8] [ol [2[3]4[s]6{7/s/9lol i [2/3|415]6|7] 8/910) 


//WEATHRP JOB MSGLEVEL=@ 


//JOBLIB DD DSNAME=WTHRPR»DISP=(OLD9PASS) 


//CREATE EXEC PGM=FILECR 


pigtee. DD DSNAME= WEATHER (+1) sUNIT= ieee 


VOLUME=( sRETAINSSER=@@12) 9DISP= (NEW>CATLG)a 
: | LABEL=(sSL>RETPD=9030) »DCB=(RECFM=F BLKSIZE=409) 


//FT®3F@G1, DD UNIT=PRINTER 2DCB=PRTISP=1 
//FTOGLFOO1, DD * 


WEATHER DATA FOLLOWS 


a ye a eee Pte rt EO 
INDICATES END, OF DATA 
/[/FORECAST, EXEC, PGM=FORCST 


//FT2@F@@1, DD 
//FT21FOO1, DD 
//FT22F@61, DD 
//FT23F0@1, DD 


//FTO3F@O1, 0D , UNIT=PRINTER 


Figure 66. 
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DSNAME=WEATHER(+1 ) SDISP=OLD 
DSNAME=WEATHER(@) »SEP=FT2@F@@1 »DISP=OLD 
DSNAME=WEATHER(-1) 9DISP=OLD 


DSNAME=WEATHER( - ~2,) DIS P= “eee | 


Job Control Statements for Example 3 


The EXEC statement defines the first 
step CREATE to the operating system and 
indicates the execution of the load module 
FILECR in the PDS WTHRPR. 


DD statement FTO8F001 defines the new 
member of the generation data group. A 
member of the class of devices HYPERT is 
used for the data set, and mounting of the 


volume is deferred (DEFER). The DISP_ pa- 


rameter indicates a new data set (NEW) and 
that it is cataloged (CATLG). The label 
parameter indicates standard labels are 


written and the retention period is 30 
days. The DCB parameter indicates fixed- 
length records (RECFM), each 400 characters 
long (BLKSIZE). 


DD statement FTO3F001 defines printed 
output. The DCB field indicates that the 
report is double-spaced. The SEP parameter 
indicates channel separation from the data 
set defined by DD statement FTO8F001. DD 
statement FTO1F001 indicates that the card 
data set is in the input stream. 


The second job step is defined by the 
EXEC statement FORECAST, which indicates 
that the load module FORCST is to _ be 
executed. The DD statements for data set 
reference numbers 20 through 23 retrieve 
members of the generation data group 
WEATHER. DD statement FTO3F001 indicates 
printed output for the weather forecast. 


Example 4 


A data set has been created that con- 
tains master records for an index of stars. 
Each star is identified by a unique six- 
Gigit star identification number. Each 
Star is assigned a record position in the 
data set by truncating the last two digits 
in the star identification number. Because 
synonyms arise, records are chained. 


The following conventions must be 
observed in processing this data set: 


1. The star master record that contains 
the record location counter pointing 
to space reserved for chained records 
is assigned to record location 1. 


2. A zero in the chain variable indicates 
that the end of a chain has been 
reached. 


3. The first variable in each star master 
record is the star identification 
field; the second variable in each 
Star master is the chain variable. 


contains six other vari- 
information about 


4. Each record 
ables that contain 
that star. 


Appendix A: 


Figure 67 shows a block 
logic for this 


Problem Statement: 
diagram illustrating the 
problem. 


A card data set read from the input 
stream is used to update the star master 
data set. Each record (detail record) in 
this data set contains: 


1. The star identification field of the 
Star master record that the detail 
record is used to update. 


2. Six variables that are to be used to 
update the star master. 


When a star detail record is read, its 
identification field is randomized, and the 
appropriate star master record is read. If 
the correct star master record is found, 
the record is to be updated. If a star 
master is not found, then a star master 
record is to be created for that star. 


The last record in the star detail data 
set contains a star identification number 
999999 which indicates that processing the 
Star detail data set is completed. 


Explanation: Figure 67 is Similar to the 
diagram shown in Figure 53, except Figure 
67 includes blocks that describe updating 
variables in master records already present 
in the data _ set. (Figure 53 includes 
blocks describing certain operations that 
must be performed when a direct access data 
set is first written.) Also, Figure 67 is 
adapted to Example 4, whereas Figure 53 is 
more general. Figure 69 shows the FORTRAN 
coding for this program. 


The star master record that contains the 


record counter is read, placing the record 
location counter in LOCREC. Whenever a 
detail record is read, the identification 


variable is checked to determine if the end 
of the detail data set has been reached. 
The star detail records contain the vari- 
ables A, B, C, D, E, and F. 


The identification number in the detail 
record is randomized; the result is placed 
in the variable NOREC, which is used to 
read a master record. The master record 
contains the star identification number 
(IDSTRM), a chain record location (ICHAIN), 
and six variables (T, U, V, W, Y, and 2) 
which are to be updated by the variables in 
the star detail records. IDSTRM and IDSTRD 
are compared to see if the correct star 
master is found. If it is not, then the 
variables containing the chain record num-_. 
bers are followed until the correct star 
master is found or a new star master is 
created. 
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Write Star 
Master 


Record 
1 












Figure 67. 
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Set Record Position 
in Read Statement 
= Chain Variable 


Read Star 
Master 


Record 
No.1 











Read Star 
Detail 
Record 








Ident 
in Star Detail 
=999999 
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Randomize Star 
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Record Location 
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Master 
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Write Star 
Master 
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Ident 
in Star Detail = 
Ident in Star 
Master 


Update 
Variable in 
Star Master 





Chain 
Variable in 
Master = 


0 






Yes 


Set Chain 


Variable = Record 
Location Counter 





Write 
Master 
Record 






Set Record Position 
in Write Statement 
= Record 
Location Counter 







Increment 
Record Location 
Counter by 1 


Build Star 
Master Record 





Block Diagram for Example 4 


















Job Control Statements: The program shown 


in Figure 69 is compiled and link edited, 


placing the load module in the PDS STARPGMS 
and asSigning the load module the name 
UPDATE. The data set that contains the 
star master records was cataloged and 
assigned the name STARMSTR when it was 
created. Figure 68 shows the job control 
Statements needed to execute the module 
UPDATE. 





Sample Coding Form 





[12 [STaTsts(7[6TSTor 2 TSraTs | rT TOLTTeTS1a ste 716 [STo1  21STa let 71S1STOL [eS TaTsle| 7 eTSIoLT21STaSTe | [eISIo 12131 S161 7161S1OLesIa s16| 7161810 
//STARDAUP, JOB 3239\J.ASTRONOMER‘ »MSGLEVEL=1 


//JOBLIB DD DSNAME=STARPGMS 4DI SP=OLD 
// EXEC PGM=UPDATE 
//FT@7FGO1L, DD DSNAME=STARMSTR3DISP=OLD 


//FT@LF@O1L, DD ¥ STAR, DETAILS FOLLO 
Star Detail Data Set | 
/% 


END OF STAR DETAILS a atlas ns 












Figure 68. Job Control Statements for Example 4 
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Figure 69. 
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A FORTRAN programmer can use assembler 
language subprograms with his FORTRAN main 


program. This section describes the link- 
age conventions that must be used by the 
assembler language subprogram to communi- 


cate with the FORTRAN main program. To 
understand this appendix, the reader must 
be familiar with the publications Assembler 


Language and Assembler (EE) Programmer's 
Guide or Assembler (F) Programmer's Guide. 


SUBROUTINE REFERENCES 


The FORTRAN programmer can refer to a 
Subprogram in two ways: by a CALL statement 
or a function reference within an arithme- 
tic expression. For example, the state- 
ments 


CALL MYSUB(X,Y, Z) 
I=J+K+MYFUNC(L,M,N) 


refer to a subroutine subprogram MYSUB and 
a function subprogram MYFUNC, respectively. 


For subprogram reference, the 
generates: 


compiler 


1. An argument list in which the address- 
' es of the arguments are placed to make 
the arguments accessible to the sub- 


program. 
2. A save area in which the subprogram 
can Save information related to the 


calling program. 


3. A calling sequence to pass control to 
the subprogram. 


Argument List 


The argument list contains addresses of 
variables, arrays, and subprogram names 
used aS arguments. Since the arguments are 
located in the main program, these address- 


es are locations within the main program. 
Each entry in the argument list is four 
bytes long and is aligned on a full-word 
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boundary. The last three bytes of each 
entry contain the 24-bit address of an 
argument. The first byte of each entry 


contains zeros, unless it is the last entry 
in the argument list. If it is the last 
entry, the first (leftmost) bit in the 
entry contains a 1. 


The address of the argument 1ist is 
placed in general register 1 by the calling 
program. 


Save Area 


The calling program contains a save area 
in which the subprogram places information, 
such as the entry point for this program, 
an address to which the subprogram returns, 
general register contents, and addresses of 
save areas used by programs other than the 
Subprogram. The amount of storage reserved 
by the calling program is 18 words. 
Figure 70 shows the layout of the save area 
and the contents of each word. The address 
of the save area is placed in general 
register 13. 


FORTRA 










sie GPS ERSTE SRE yeh ate OSH MI : MS nan Q, eee {oh ant A ASae 
floating-point | register these reg~"" 
seein ienemcimennNERONENE or Lan~ 
uage subprogram is responsible for savin 
g g 


and restoring these registers. 





Calling Sequence 


A calling sequence is generated to 
transmit control to the subprogram. The 
address of the save area in the calling 
program is placed in general register 13. 
The address of the parameter list is placed 
in general register 1, and the entry 
address for the subprogram is placed in 
general register 15. An instruction is 
then generated to branch to the address in 
the general register 15 and to save the 
return address in general register 14. 
Table 15 shows a summary of the use of 
general registers. 
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FA+4——- 
ord 2) 


Z fs 


AREA+8-—-—— 
(word 3) 


AREA+12-—- 
(word 4) 


AREA+16-— 
(word 5) 


AREFA+20-— 
(word 6) 


ARBA+ 6 8-- 
(word 18) 


Pe ce re ee eee ee ee ee ee ee ce ee re ee ee ee ret ce ee ee ee ee oy 


Figure 70. 


Table 15. 
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7 
| 
| 
| 

So (SS ee Se a a ea re Se ee ee eee 1 | 

{This word is used by a FORTRAN-compiled routine to | | 
{store its epilogue address and may not be used by the | | 
{assembler language subprograms for any purpose. 1 | 

Se Pe ee ee ee ee ee ee Een eee 4 | 

JIf this program which calls the assembler language subprogram is itself a| | 
{subprogram, this location contains the address of the save area of the] | 
{calling program. Otherwise this location is not used. | | 
Fa ea gee ee ee eg re a ee ee a 1 | 
|The address of the save area of the subprogram called by this program. | | 
| | | 
| {| 
-> }------------------------------------------------------------------------- 1 | 
{|The contents of register 14; that is, the address to which the subprogram| | 
{returns. If a subprogram returns to this program, the first byte of this] | 
Jlocation is set to ones, indicating that the called subprogram has| | 
{returned control. } | 
7 ee Renee a See a a ee ee ee { | 
|The contents of register 15; that is, the address to which entry to the| | 
jsubprogram is made. : a 
hi PSS Sa a ee tar eee ee eee nS ae ee 41 | 
{|The contents of register 0. } | 
| | | 
aa a eae a a { | 
| . | | 
| : | | 
| . | | 
Se ee a ee ee ae eee eee 1 | 
|The contents of register 12. | | 
| | | 
geen EEE eR ar OE Te YO Par a Toe NLR ns SE epee ee oe NTR NONE Goce eee J | 
| 
| 
| 
SS Sh I hs es each tN Ra an a a a ag ete ae ae eg area J 


save Area 


Linkage Registers 


hee ry Nee a apg Tae Og Be ee re eS Re aE a re ee re 1 
|Register Name| Function | 
| | 
}-------------}-------------~----+---------------------------------------------- { 
| Result |Used for function subprograms only. The result is returned in | 
| Register jgeneral or floating-point register 0. (For subroutine subpro-| 
| |grams, the result(s) is returned by the subprogram in a| 
| |variable(s) passed to the subprogram by the programmer in his| 
| |CALL statement.) | 
}+------------}--------------------------+------------------+----------------- { 
jArgument List|Address of the argument list passed to the called subprogram. | 
| Register | | 
}------------- }---------------------------------------------------------------4 
| Save Area |Address of the area reserved by the calling program in which 
| Register {the contents of registers are stored by the called program. | 
jee ae eae aie eee ee a eee a ee eee 
| Return {Address of the location in the calling program to which control | 
| Register fis returned after execution of the called program. | 
}------------- }---------------------------------------------+----------------- { 
| Entry Point |Address of the entry point in the subprogram. | 
| Register | | 
fanny een Lee ek ees a OP ON a EE nN NTO en a a Pa OTE REE NPN IO nO De J 


CODING THE ASSEMBLER LANGUAGE SUBPROGRAM 


cccaremrrnaer comely cpm eg ee ETE ae EE A SEE ESE cA AEP SORES NE CA EER “AS CAEP 


Two types of assembler language subpro- 
grams are possible: the first type (lowest 
level) assembler subprogram does not call 
another subprogram; the second type (higher 
level) subprogram does call another subpro- 
gram. 


SnSeeceet 


For the lowest level assembler language 


Subprogram, the linkage instructions must 
include: 
1. An instruction that names an entry 
point for the subprogram. 
2. An instruction(s) to save any reg- 


isters used by the subprogram in the 
save area reserved by the calling 
program. (The contents of linkage 
registers 0 and 1 need not be saved.) 


3. An instruction(s) to restore the 
“saved" registers before returning 
control to the calling program. 


4, An instruction that sets the first 
byte in the fourth word of the save 
area to ones, indicating that control 
is returned to the calling program. 


5. An instruction that returns control to 


the calling program. 


Figure 71 shows the linkage conventions 


; 
| 
4 
| 
| 
| 
| 
. 
STORED IN THE SAVE AREA OF THE CALLING PROGRAM. ‘RIS ANY| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
4 


does not call another subprogram. In addi- 
tion to these conventions, the assembler 
program must provide a method to transfer 


arguments from the calling program and 
return the arguments to the calling pro- 
gram. 


Sharing Data in COMMON 


With FORTRAN (E), general register 4 
contains the address of the COMMON area. 
If the size of the COMMON area exceeds 4095 
bytes, additional registers (e.g., register 
5, 6, and 7) are assigned consecutively. 


Higher Level Assembly Language Subprogram 


A higher level assembler subprogram must 
include the same linkage instructions as 
the lowest level subprogram, but because 
the higher level subprogram calls another 
subprogram, it must simulate a FORTRAN 
subprogram reference statement and include: 


1. A save area and additional instruc- 
tions to insert entries into its save 
area. 


2. A calling sequence and a parameter 
list for the subprogram that the high- 
er level subprogram calls. 


assembler instruction that indi- 
cates an external reference to the 
Subprogram called by the higher level 
Subprogram calls. 


oe An 


ee ee ree cm cme ae ee ee cee ee ee ce re ee ee ee ee ee ee ee ee ee ee ee ce ee ee ee ee ee woe ee ne eee cee ee em ee ee ee ee ee 


BRANCH AROUND CONSTANTS IN CALLING SEQUENCE 
m MUST BE AN ODD INTEGER TO INSURE THAT THE PROGRAM 
STARTS ON A HALF-WORD BOUNDARY. 


THE NAME CAN BE PADDED 
pm 


15, AND 0. THROUGH ARE 


NUMBER FROM 0 THROUGH 12. - 
ESTABLISH BASE REGISTER (2<12) 


INDICATE CONTROL RETURNED TO CALLING PROGRAM 


for an assembler language subprogram that 

pie ese eee eae oe ee ao ee Se eee 

| Name ooee, (Opeeand Comments 
|deckname |START [0 

| 7 | BC {15,m+1+4 (15) 

| ~ {DC [x'm' 

| [DC | CLm*name* 

| * | { WITH BLANKS. 

| | STM ,14, R, 12(13) THE CONTENTS OF REGISTERS 14, 
by | = 

| * | | 

| |BALR |B,0 

| [USING |*,B 

| Juser |written source statements 

| | [| 

| | |. 

| | | oA 

| | LM 24/5, 28 (23 RESTORE REGISTERS 
| | MVI j12 et X°FF* 

{ | BCR eae RETURN TO CALLING PROGRAM 
ear eae eee ae eRe apne! ERR rank enor Pctperten elton ieee ao er eee ne ene 
Figure ye aes eae, Level Assembler Subprogram 
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4. Additional instructions in the return In-Line Argument List 
routine to retrieve entries in the 
Save area. 
The assembler programmer can establish 
Figure 72 shows the linkage conventions an in-line argument list instead of an 
for an assembler subprogram that calls out-of-line list. In this case, he deletes 
another assembler subprogram. the argument list shown in Figure 71 and 
substitutes the calling sequence shown in 
Figure 73 for that shown in Figure 71. 

foie as : as Se ee ee ee ee rT re Ee ee ee 1 
| Name |Oper. |{Operand Comments | 
}---------}------ }+--------------------------------------------------------------------- { 
| deckname |START |0 | 
| |EXTRN [names NAME OF THE SUBPROGRAM CALLED BY THIS SUBPROGRAM | 
| {BC [15,m+1+4 (15) | 
| [DC «| Xm" | 
| {DC | CLm* name, | 
| + | |SAVE ROUTINE | 
| | STM }14,R,12(13) THE CONTENTS OF REGISTERS 14, 15, AND O THROUGH R ARE | 
| | | STORED IN THE SAVE AREA OF THE CALLING PROGRAM. R IS ANY| 
| | | NUMBER FROM 2 THROUGH 12. | 
| |BALR |B,0 ESTABLISH BASE REGISTER | 
| [USING |*,B | 
| [LR ;}O,13 LOADS REGISTER 13, WHICH POINTS TO THE SAVE AREA OF THE | 
| * | | CALLING PROGRAM, INTO ANY GENERAL REGISTER, Q, EXCEPT 0, | 
| * | | 1, 13, and 15. | 
| | LA {13, AREA LOADS THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO | 
| * | | REGISTER 13. | 
| {ST {}13,8(0,Q) STORES THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO THE | 
| * | | CALLING PROGRAM'S SAVE AREA ; 
| |ST 10,4(0,13) STORES THE ADDRESS OF THE PREVIOUS SAVE AREA (THE SAVE | 
| * | | AREA OF THE CALLING PROGRAM) INTO WORD 2 OF THIS PRO- | 
| * | | GRAM'S SAVE AREA | 
| | BC [15, prob, | 
| AREA [DS |18F RESERVES 18 WORDS FOR THE SAVE AREA | 
| * | {END OF SAVE ROUTINE | 
|prob, juser |written program statements | 
| | . | | 
| [| . | | 
| [| - | | 
| * | {CALLING SEQUENCE | 
| {LA |1,ARGLIST LOAD ADDRESS OF ARGUMENT LIST l 
| |L |}15,ADCON | 
| {BALR |14,15 | 
| {more |user written program statements | 
| | - | | 
| [| - | 
| zg | | 
| * | |RETURN ROUTINE | 
| Be {13,AREA+4 LOADS THE ADDRESS OF THE PREVIOUS SAVE AREA BACK INTO | 
| * | | REGISTER 13 | 
| | LM {2,R,28(13) | 
| | L {14,12(13) LOADS THE RETURN ADDRESS INTO REGISTER 14. | 
| | MVI {12(13),X*FF'‘ | 
| | BCR {15,14 RETURN TO CALLING PROGRAM { 
| * | [END OF RETURN ROUTINE l 
| ADCON | Dc |A(namea) { 
| * | | ARGUMENT LIST 
|ARGLIST |Dc |AL4 (arg,) ADDRESS OF FIRST ARGUMENT | 
| = | | 
| | - | | 
| | - | | 
| {DC {|x*8Oo' INDICATE LAST ARGUMENT IN ARGUMENT LIST | 
| [DC {| AL3 (argn) ADDRESS OF LAST ARGUMENT | 
Uaioe ns i Eee ene A ey niger ep at gee ORE Esai rh NN EN ene ete MP eel AE eT RCRD Se Oe Fe EN mE aT a CRS re et aR OTT SR EES CEN J 

Figure 72. Higher Level Assembler Subprogram 
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Seer ar ; aca Ne Es 1 
| Name jOper. |Operand | 
Sa Ren rere oe Oana) cee ne) Spe eee pen EN en RE nk ee es aoe ee | 
| ADCON {Dc | A(prob1) | 

| - | | 
| | - | | 
| - | | 
| {LA (14, RETURN l 
| |L |15,ADCON | 
| {CNOP |2,4 | 
| |BALR [1,15 | 
| |Dc |AL4 (arg,) | 
| | - | | 
| [| - | | 
| | - | | 
| |DC {|x*80° | 
| {DC | AL3 (argn) | 
|RETURN |BC ro, xisn* | 
(Se Pesan a ae een pes Nee tea J 
Figure 73. In-Line Argument List 


GETTING ARGUMENTS FROM THE ARGUMENT LIST 


The argument list contains addresses for 
the arguments passed to a subprogram. The 
order of these addresses is the same as the 
order specified for the arguments. in the 
calling statement in the main program. The 
address for the argument list is placed in 
register 1. For example, when the state- 
ment 


CALL MYSUB(A,B,C) 


is compiled, the following argument list is 
generated. 


aaa aac ae ears Mis i ee ie ee ee ee gee re 1 
| 00000000 | address for A | 
[-------- }~-----~------------------------- { 
{00000000 | address for B | 
~------- }--------------------------------4 
| 10000000| address for C | 
Serene roagoeerer tae eae ena ee lyre eR ERP ec eer eM en eat ae fey ene penton rene wee 4 


For purposes of discussion, Ais a _ double- 
precision variable, B iS a subprogram name, 
and C iS an array. 


The address of a variable in the calling 
program is placed in the argument list. 
The following instructions in an assembler 
language subprogram can be used to move the 
double-precision variable A to location VAR 
in the subprogram. 


L 0,0(1) 
MVC VAR(8) ,0(Q) 
where: 


Q is any general register. 


For a 
of a storage 
argument list. 


Subprogram reference, an address 
location is placed in the 
The address at this storage 
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location is the entry point to the 
Subprogram. The following instructions can 
be used to enter subprogram B from the 
Subprogram to which B is passed aS _ an 


argument. 
L O,4(1) 
L 15,0(Q) 
BALR 14,15 
where: 


QO is any general register. 


For an 


array, the address of the first 
variable in the array is placed in the 
argument list. An array [for example, a 


three-dimensional array C(3,2,2)] 
in this format in main storage. 


appears 


C(1,1,1) C(2,1,1) CO3;,1;,:1) C(1,2,1)--4 

a as a ee ee See She J 
i ha a a ae a ea a Se a aS B| 
c eee ee cee ree ae ce cere ein ete ae ee etn ems ee ee cee ee ere ee te ee ee ee ee ee ee ee ee ee 


Table 16 shows the general subscript format 
for arrays of 1, 2, and 3 dimensions. 


Table 16. 
(ee po es er eer ee 1 
| 


Dimension and Subscript Format 


Array A [Subscript Format | 
}----------- }-------~--------- +--+ === { 
|A(D1) [|A(S1) | 
|A(D1,D2) JA(S1,S2) | 
{A(D1,D2,D3) JA(S1,S2,S3) | 
|-~--------- 1_~—~——---—~~~—~-~--—--~~---~- { 


{D1, D2, and D3 are integer constants used| 


fin the DIMENSION statement. S1, S2, and| 
|S3 are subscripts used with subscripted| 
|variables. | 
A a a a ee J 


The address of the first variable in the 
array is placed in the argument list. To 
retrieve any other variables in the array, 
the displacement of the variable, that is, 
the distance of a variable from the first 
variable in the array, must be calculated. 
The formulas for computing the displacement 
(DISPLC) of a variable for one, two, and 
three dimensional arrays are 


DISPLC =(S1-1)¥*L 
DISPLC =(S1-1) *L+ (S2-1) *D1¥*L 
DISPLC =(S1-1) *L+ (S2-1) *D1*L+ (S3-1) *D2*D1*L 


where: 
L is the 
the array. 


length of each variable in 


For example, the real variable C(2,1,2) 
in the main program is to be moved to a 
location ARVAR in the subprogram. Using 
the formula for displacement of variables 
in a three-dimensional array, the displace- 
ment is calculated to be 28 and placed in 
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the general register DISP. The following 
instructions can be used to move the vari- 
able 


L Q,8(1) | 
LE - §,0(Q,DISP) 
STE S, ARVAR 
where: 


Q, R, and S are general registers. 


7 T 
| Name |Oper. |Operand 
Sono eseesateoeece See eee eer eee dae ee ee 
| ADDARR {START |0 
|B | EQU [8 
| | BC ~{15,12(15) 
| {Dc xr 
| {DC |CL7*ADDARR'* 
{ADDARR |STM  [{14,12,12(13) 
| |BALR |B,0 
| {USING |*,B 
| | L }2,8(1) 
| [MVC | INDEX(4),0(2) 
| | L [3,0(1) 
| |MVvCc | VAR(4),0(¢3) 
| | L }4,4(1) 
| [L. f4,4(4) 
| | |User Written Statements 
| | | 
| | | 
| | - 
| | LM {14,12, 2813) 
| | MVI }12(13),X"FF* 
| | BCR }15,14 
| 1DS | OF 
| INDEX [DS [1F 
| VAR {DS |1F 
De esi Meee Morera er ee ea 
Figure 74. Assembler Subprogram Example 
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Example: An assembler language subprogram 
is to be named ADDARR, and a real variable, 
an array, and an integer variable are to be 
passed as arguments to the subprogram. The 
statement 


CALL ADDARR (X,Y,J) 
is used to call the subprogram. 


Shows the linkage used 
subprogram. 


Figure 74 
in the assembler 


| 
| 
| 
| 
| 
| 
! 
MOVE THIRD ARGUMENT TO THE LOCATION CALLED INDEX IN | 
THE ASSEMBLER LANGUAGE SUBPROGRAM. | 
MOVE FIRST ARGUMENT TO THE LOCATION CALLED VAR IN THE | 
ASSEMBLER LANGUAGE SUBPROGRAM | 
LOAD THE ADDRESS OF THE ARRAY TO GENERAL REGISTER 4. | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
J 


APPENDIX C: STORAGE MAP FOR LOAD MODULE EXECUTION 

Figure 75 shows a storage map for load (moon 7 
module execution. The superscripts shown {Resident and Transient Control Program | 
in the figure indicate one of the notes -}----------------------------------------- 4 
listed in this appendix. {First FORTRAN Object Module | 
Ss ech ahaa a ea eee ee 4 

|COMMON Areat | 

Se ai a a a ee | 

|Second FORTRAN Okject Module | 

Note 1: The COMMON area iS inserted into }----------------------------------------- 4 
the load module after the first object }|Third FORTRAN Object Module | 
module that refers to it. For example, if }—-- wn nnn nn ne + = + + ++ -----| 
the first object module does not refer to | : | 
COMMON and the second object module does, | . | 
the COMMON area follows the second object | : | 
module. }-----~------—--—-~-----—-------------------- 4 
|Last FORTRAN Object Module | 

a Aa late a cee ety oh eh a i 4 

JExplicitly Referenced Library Subprograms| 

Ppa AS OP at ane ete nN eae eye ey aE ne | 

Note 2: Buffers for direct access data |Implicitly Referenced Library Subprograms| 


sets are extended upward in main storage as 
buffers are needed. 


Note 3: The order in which IOBs are placed 
in main Storage is dependent on the 
sequence of I/O operations. The IOBsS' can 
be located anywhere in upper main storage. 


Note 4: The routines for direct access I/O 
are loaded into main storage when a_ direct 
access data set is defined by a DEFINE FILE 
statement. The routines for sequential I/O 
are loaded into main storage when a sequen- 


tial data set is first used. 





Note 5: A DCB is allocated for every data 
set reference number used by the load 
module. 
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-_ —_ -_ —_ -_ - —_ -_- _ - —_— | 


{Transient Work Area Required of Every] 
{Load Module for Use by the Control Pro-| 
| gram | 
ee al Sg ne ee aN ee aa 
| | 
| | 
Se ee ee Pen ee EEO ON | 
| Input/Output Blocks (IOBs) Containing | 
|Information Concerning the Interface| 
|Between FORTRAN Execution Time I/O Rou-| 
{tines and the Control Program? | 
eS ee a er ee 4 
|Buffers for Sequential Data Sets | 
Bt a re Sa ee | 
[Control Program Routines for Performing| 


{Direct Access I/70 and Control Program| 
jRoutines for Sequential I/0% | 


a eae get ae te tee a eae ee os Se | 
[Data Control Blocks (DCBs) Containing] 
JInformation Concerning the Use of Each| 
|Data Set® | 
a le a ia a | 


jTask Input/Output Table (TIOT) Containing| 
JInformation such as jobname, stepname, | 
[and ddname for each data set used by the| 


'step | 
}----------------------------------------- 

|Register Save Area for the Control Pro-| 
| gram | 
Af eer OS oe en eee ee i ae rE oo Re Rear J 
Figure 75. Load Module Execution Storage 


Map 
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This appendix contains a detailed de- 
scription of the diagnostic messages pro- 
duced during compilation and load module 
execution. 


COMPILER DIAGNOSTIC MESSAGES 


Two types of compiler diagnostic mes- 
sages are generated - informative and 
error/warning. 


Compiler Informative Messages 


Four informative messages are generated 
by the compiler to inform the programmer or 
operator of the status of the compilation. 
The message and any compiler action taken 
is shown. 


LEVEL: rmthyr 
FORTRAN IV (E) COMPILATION 


IBM OS/360 BASIC 
DATE: yy.ddd 


Explanation: This message is gen- 
erated at the beginning of every 


compilation. The level number (r) 
and date (mthyr) of the compiler 
is given by “rmthyr". The number 
of the day (ddd) in the year (yy) 
that the compilation takes place 
is given by "“yy.ddd". 


IEJ001I COMPILER OPTIONS IN EFFECT: 
[SOURCE,] {BCD,] (MAP, ] [DECK, ] 
Cena 
(LOAD, ] L[ADJUST, ]|(PRFRM, 
(NAME=xxxxxx, ]SIZE=yyyyyyy, 


LINELNG=22zz 


Explanation: This message occurs 
for every compiler job step. All 
bracketed options appear, if they 
are specified or assumed by 
default. 


SIZE OF COMMON xxxxx PROGRAM yyyyy 


Explanation: This message is gen- 
erated before the end of every 
compilation. The number of bytes 


needed to contain the COMMON area 
is the decimal number xxxxx. The 
number of bytes needed to contain 
the program (instructions generat- 
ed by the compiler, constants, and 
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variables not assigned to COMMON, 


etc.) is the decimal number 
YYYYY- 

END OF COMPILATION 
Explanation: This message indi- 


cates that a compilation is 
cessfully completed. 


suc 


Compiler Action: If this message 
is not generated by the compiler, 
the compilation was terminated 


abnormally and a condition code of 
16 was generated because of inter- 
nal errors. 


Compiler Error/Warning Messages 


The following text contains a descrip- 
tion of error/warning messages produced by 
the compiler. The message is shown with an 
explanation, and any compiler action or 
user action that is required. Unless oth- 
erwise specified, messages preceded by 
"WARNING" generate a condition code of 4; 
other messages generate a condition code of 
8. 


ITEJOO2I ONE OR MORE INVALID COMPILER 
OPTIONS IN *PARM' FIELD 
OPTION(S) IGNORED 


Explanation: 
option is specified in the 
field of the EXEC statement. 


An invalid compiler 
PARM 


Compiler Action: The compilation 
proceeds using only the specified 


valid compiler options and 
defaulted options. 


IEJO03I ‘NAMES OPTION TOO LONG - TRUNCATED 
Explanation: The name specified 
for the compiler option 
NAME=xxxxxx iS longer than six 
characters. 

Compiler Action: The characters 
beyond the sixth position are 
truncated and the compiler pro- 


ceeds as if the truncated name had 
been specified. 


ITEJOO4T 


IEJOOSI 


IEJO006I 


IEJO0071I 


MISSING OR ERRONEOUS DD STATEMENT 


\ svsors 
FOR ) SYSUT2 


\) SYSLIN 
SYSPUNCH 
XXXXXXXX 


\ ‘ 


‘ SYSIN | 


Explanation: A DD statement is 
not supplied or the ddname is 
mispunched for the DD statement 
indicated in the message. If 
another program passes control to 
the compiler, then a DD statement 


XXXXXXXX passed aS a parameter is 


missing. 


Compiler Action: A condition code 
of 16 is generated for the omis- 
Sion of SYSIN. The compilation is 
terminated. The compilation pro- 
ceeds if any other ddnames_ are 
omitted. If SYSLIN is omitted, a 
condition code of 12 is generated 


and the compiler assumes NOLOAD, 
even though the programmer may 
have specified LOAD. For the 


omission of SYSPUNCH, the compiler 
assumes NODECK, even though DECK 
may have been specified. 


NO INPUT FOUND 


Explanation: A source module is 
nonexistent; that is a DD * state- 
ment defining the location of the 
source module for the compiler is 
immediately followed by a delim- 
iter statement. 


Compiler Action: A condition code 
of 16 is generated, and control is 
returned to the control program. 


INSUFFICIENT STORAGE. SPACE 


OPTION IN EFFECT 


Explanation: The PRFRM option is 
specified; however, there is not 
enough main storage available for 
the PRFRM option. 


Compiler Action: The SPACE com- 

 piler option is assumed, and the 
compiler begins the compilation 
again. 


INSUFFICIENT STORAGE FOR COMPILA- 
TION 


Blocked compiler I/O 
with the PRFRM 
there is not 


Explanation: 
is specified 
option; however, 
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enough main storage available for 


the PRFRM option. 


Compiler Action: The compilation 
is terminated, and a condition 
code of 16 is issued. 


INVALID BLKSIZE SPECIFICATION 


Explanation: The BLKSIZE subpa- 
rameter specified in a DD state- 
ment is not an integral multiple 
of the specified LRECL value for 
that data set. 


Compiler Action: The compilation 
is terminated, and a condition 
code of 16 is issued. 


I/O ERROR, COMPILATION TERMINATED, 


XKXeo eo ve XXX 


Explanation: An irrecoverable 
input/output error was encountered 
during compilation, which makes 
continuation impossible. 

XXXe..XXX iS the character string 
formatted by the SYNADAF macro 
instruction. For an interpreta- 
tion of this information, see IBM 
System/360 Operating System: 
Supervisor and Data Management 
Macro-Instructions, Form C28-6647. 


Compiler Action: Compilation is 


terminated, and a condition code 
16 is generated. 

I/O ERROR, ‘DECK * CANCELED, 
XXX 56s ¥KX 

Explanation: An irrecoverable 





error waS encountered during an 
output operation on the data set 
defined by SYSPUNCH. xxx...xxx 1S 
the character string formatted by 


the SYNADAF macro instruction. 
For an interpretation of this 
information, see IBM System/360 


Operating System: Supervisor and 


Data Management Macro- 
Instructions, Form C28-6647. 


Compiler Action: The DECK option 


is changed to  $NODECK, and 
compilation continues. In the 
case of multiple compilations, 


only the last (partial) deck punch 
need be discarded. 
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ARRAY MUST BE DIMENSIONED ON ITS 


FIRST AND ONLY ITS FIRST OCCUR- 
RENCE 
Explanation: The dimension of an 


array must be given in either a 
DIMENSION, COMMON, or Explicit 
Specification statement prior to 
its use in any other statement and 
can never be redefined. 


ILLEGAL USE OF FUNCTION NAME 


Explanation: A function name may 
not appear in an EQUIVALENCE or 


COMMON statement. 


EQUIVALENCE TABLE FULL 


Explanation: There are too 


equated variables. 


many 


User Response: See "Compiler Re- 


strictions." 


INTEGER TOO BIG 


Explanation: Integer is larger 
than maximum size allowable 
(i.e., larger than 231-1 or 
2,147,483,647), or the number of 
records specified in a DEFINE 
FILE statement exceeds Zon 


(16,777,116). 


WARNING -- 
TION 


FIRST CARD IS CONTINUA- 


Explanation: First non-comment 
Statement was a continuation line 
(1.e., a nonzero character, other 
than a blank, was encountered in 
column 6.) 


Compiler Action: The statement is 
processed as if it were the ini- 
tial line of a statement. 


SUBPROGRAM CARD NOT FIRST 
Explanation: A FUNCTION or 


SUBROUTINE statement appears after 
the first statement in a program. 
For example, the first card in a 
Subprogram (other than a comments 
card) is not a FUNCTION or 
SUBROUTINE statement. 


ARGUMENT MISSING IN FUNCTION DEFI- 
NITION 
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arithmetic 


Explanation: 


Explanation: Function definition 
(either in Statement Function or 


FUNCTION header statement) must 
have at least one argument. 
ILLEGAL CHARACTER 

Explanation: Character is not 
recognizable. 


The character is 
delimiter, which 


Compiler Action: 
taken to be a 
Should be either 


b-* ., +/#2= ( ) 

or Column 73, where b is a blank. 
INVALID STATEMENT OR STATEMENT 
NUMBER 

Explanations: For example, an 


equal sign is missing in a State- 
ment Function Definition or an 
statement. A left 
parenthesis is missing in an IF 
statement or an illegal delimiter 
precedes the statement. 


SEQUENCE ERROR 


Explanation: 
statements. 


All specification 
(DIMENSION, EOQUIVAL— 
ENCE, REAL, INTEGER, DOUBLE PRECI- 
SION, COMMON) must precede all 
Statement Function Definition 
statements. All Statement Func- 
tion Definition statements must 
precede all executable statements. 


MORE THAN 6 CHARACTERS IN NAME 


MULTI-DEFINED OR ILLEGAL NAME 


Explanation: A name is defined 
more than once or an illegal name 
is used as a variable. For exam- 
ple, a real variable is redefined 
aS an integer variable. 


MULTI-DEFINED STATEMENT NUMBER 


Explanation: This statement num- 
ber has keen used previously. 
Every statement number should he 
unique, and associated with only 
one statement in a program. 


ILLEGAL USE OF RESERVED WORDS 


When NOADJUST is 


specified, a reserved word must 
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not be used as a variable, array, 
Or subprogram name. 

TOO MANY DECIMAL POINTS 
Explanation: Only one decimal 
point can appear in a real or 


double-precision number. 


DECIMAL POINT AFTER E 


Explanation: A decimal point has 
been found in the exponent part of 
a real or double-precision number. 


TOO MANY E'S 
Explanation: A second E has_ been 
found ina number (e.g., 2, 7E2E2). 


ILLEGAL NUMBER OR NAME 


Explanation: Tllegal use of a 
number. For example, in the 
statement, DIMENSION 5 (1,2), the 
number 5 1s not a proper array 
name. 


MORE THAN 3 DIMENSIONS 


Explanation: Maximum number of 
dimensions permitted in an array 


is three. 


DIMENSION ERROR 


Explanation: Illegal delimiter or 
Size of an array exceeds 131,071 
bytes in a COMMON, DIMENSION, or 
Explicit Specification statement. 


CANNOT EQUATE 


Explanation: At least two vari- 
ables or subscripted variables 
should appear in the parentheses 


Of an EQUIVALENCE statement. 


WARNING -- COMMA MISSING 


Explanation: A required comma was 
not encountered. 


Compiler Action: The statement is 
compiled as through a comma were 
there. 


WRONG DIMENSION 


Number of subscripts 
used does not 


Explanation: 
in the variable 
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correspond to the number of sub- 
Scripts in the array as defined in 


a COMMON, DIMENSION, or Explicit 
Specification statement. 

SUBSCRIPT ERROR 

Explanation: The subscript 
expression contains more than 


three subscripts, an illegal deli- 
miter, or an illegal variable. 


INVALID ARGUMENT IN ASF 


Explanation: An illegal symbol 
appears aS an argument in the 
Statement Function argument list. 
For example, SF(A,B,*,C) or 
SF(A,B,C) where C iS an array. 


INVALID ARGUMENT IN HEADER CARD 


Explanation: An illegal variable 
or a multidefined variable appears 


in the function definition argu- 
ment list. 
ILLEGAL STATEMENT NUMEER FIELD 


Explanation: Statement number 
list in a computed GO TO or in an 
arithmetic IF statement is inval- 
id. 


DATA SET REFERENCE NUMBER MISSING 


There is no data set 
reference number specified, for 
example, WRITE(,10), or the data 
set reference number is multiply 
defined. 


Explanation: 


LEFT PARENTHESIS MISSING AFTER R/W 


Explanation: The left parenthesis 
in a READ or WRITE statement is 
missing. For example, in the 
statement: WRITE3,10), the left 
parenthesis before the 3 is miss- 
ing. 

ERROR IN VARIABLE 

Explanation: Symbol in an 
EQUIVALENCE statement iS not a 
variable, for example, EQUIVALENCE 


(10,B), Or is a dummy variable. 


WARNING -- STATEMENT CANNOT BE 


REACHED 
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Explanation: Statement following 
a GO TO, IF, RETURN, or STOP has 
no statement number. 





EQUIVALENCE SUBSCRIPT ERROR 


Explanation: There is an illegal 
delimiter or a missing subscript 
in an EQUIVALENCE subscript. 


TOO MANY SYMBOLS -.AND 
NUMBERS 


STATEMENT 


Explanation: The Dictionary and 
Overflow Table have overflowed, or 
the total number of statement num- 
bers referred to (excluding FORMAT 
statement numbers), DO Statements, 


and statement functions exceeds 
1000. 
User Response: Subdividing the 


program or reducing the number of 


Symbols and statement numbers is 
necessary. 
INVALID STATEMENT NUMBER OR 


PAUSE/STOP NUMBER 


Explanation: Either there is an 
alphabetic or illegal character in 
the number, or there are more than 
five digits in the number. 


BACKWARD DO LOOP 

Explanation: The statement speci- 
fied in the range of the DO state- 
ment may not precede the DO state- 
ment. 

INVALID DATA SET CONTROL CHARACTER 
Explanation: The FORMAT control 
specification in the DEFINE FILE 
Statement is not L, E, or U. 

ERROR IN EXPONENT 

Explanation: An exponent is miss- 
ing or is too large ina real or 
double-precision number. 


TOO MANY ARGUMENTS IN ASF 


than 15 argu- 
defi- 


Explanation: More 
ments in Statement Function 


nition is not permitted. 


INVALID FUNCTION NAME 
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Explanation: Invalid subprogram 
name in a FUNCTION or SUBROUTINE 


header statement. 


ILLEGAL SUBROUTINE NAME 


Explanation: Illegal delimiter or 
illegal subroutine name in a CALL 


statement. 


ASF OUT OF SEQUENCE 


Explanation: Statement Function 
Statement is out of Sequence or an 
array is not dimensioned prior to 
its first use. 





TRANSFER TO NON-EXECUTABLE STATE- 
MENT 


The statement number 
referred to by a GO TO, computed 
GO TO, or an arithmetic IF state- 
ment iS a FORMAT or specification 
Statement. 


Explanation: 


VARIABLE ALREADY IN COMMON 


Explanation: A variable appears 
in COMMON more than once or an 
inconsistent equate was made 
(e.g., the statement COMMON 


(A,B,C,A) is illegal). 


UNFINISHED STATEMENT 

Explanation: A FORMAT statement 
is not finished. 

PARENTHESIS ERROR 

Explanation: A parenthesis is not 
closed or iS misSing. The paren- 
theses are not nested properly. 
Compiler Action: The compiler 
cannot assume their position. 


ILLEGAL DELIMITER OR MISSING NAME 


An improper delimi- 
special character 


Explanation: 
ter or illegal 
was encountered. 


ILLEGAL END DO 


The last statement 


Explanation: 


in the range of a DO 1100p cannot 
be a nonexecutable statement, 
Arithmetic IF, GO TO, PAUSE, 
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RETURN, or another DO state- 


ment. 


STOP, 


TYPE MUST BE INTEGER SCALAR 


Explanation: The DO variable, com- 
puted GO TO variable, or the asso- 
ciated variable ina DEFINE FILE 
statement must be a non- 
subscripted integer variable. 


COMMA MISSING 

Explanation: A required comma was 
not encountered. 

Compiler Action: The compiler 
cannot assume its position. 


ILLEGAL FORMAT SPECIFICATION 


decimal 
fol- 


Explanation: Illegal 
point or a number is missing 


lowing decimal point. 
INVALID NUMBER 


Explanation: There iS an error in 


an integer, real, or double- 
precision number. 
ERROR IN INTEGER 
Explanation: Number zero not 
allowed in most FORMAT specifi- 
cations, a DIMENSION statement, or 


in a subscript. 


MORE THAN 4 WARNINGS IN STATEMENT 


More than four warn- 
generated for a 


Explanation: 
ings have been 


statement. 


Compiler Action: The compilation 
of the statement is terminated. 


THIS MESSAGE IS A COMPILER ERROR 


Explanation: Compilers working 
text contains meaningless code. 


Compiler Action: Compilation con- 


tinues. 


ILLEGAL BLANK 


Explanation: When NOADJUST is 
specified, an illegal embedded 
blank is found in the FORMAT 
statement. 
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NUMBER MISSING 


Explanation: A number iS missing 
in E, F, T, A, I, D, or X conver- 
Sion code or an illegal delimiter 
precedes the number. 


NESTED PARENTHESIS 


Explanation: Not more than one 
level of nested parenthesis is 
permitted in a FORMAT statement. 





ILLEGAL DATA SET REFERENCE NUMBER 


Explanation: Data set reference 
number must be an integer variable 
Or a constant within the range 1 
to 99. 


APOSTROPHE NOT CLOSED 


apostrophe was 
literal 


Explanation: An 
not found terminating the 
data in a FORMAT statement. 


ILLEGAL SIGN 


Explanation: A P Format code or a 
blank are the only legal delim- 


iters following a plus or minus 
Sign in a FORMAT statement, unless 
the sign appears in literal data. 


ILLEGAL COMMA 


Explanation: An erroneous comma 
appears in a FORMAT statement. 


NOT IN INTEGER MODE 


Explanation: The associated vari- 
able indicating the relative posi- 
tion of a record in a direct 
access FIND, READ, or WRITE state- 
ment is not an integer variable. 


WARNING -- TOO MANY DECIMAL PLACES 
Explanation: The number of deci- 


mal places must be less than the 
size of the entire number in a 
FORMAT statement. The size of the 


entire number is equal to the 
number of decimal places. 
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the 


STATEMENT NUMBER REFERENCE NOT 
FORMAT STATEMENT 


Explanation: The statement number 
referred to in a READ/WRITE state- 
ment is not that of a FORMAT 
Statement. 


ILLEGAL VARIABLE IN I/O LIST 


Explanation: The use of subpro- 
gram names or constantS are not 
allowed in an I/O list. 

TOO MANY ELEMENTS IN LIST 
Explanation: The list in the 
READ, WRITE, or Computed GO TO 
statement contains too many ele- 
ments. There are approximately 
250 variables permitted ina sin- 


gle list. The use of implied DO's 
in READ/WRITE statement decreases 
number of variables permitted. 


User Response: The statement 
should be divided into several 
Statements. 


NO CHARACTER BETWEEN APOSTROPHES 


Explanation: An open apostrophe 
is immediately followed by a close 
apostrophe in the FORMAT state- 
ment. At least one Character 
Should appear within the apos- 
trophes. 


TOO MANY CHARACTERS BETWEEN APOS- 
TROPHES 


Explanation: The number of char- 
acters appearing within apostrophe 
in the FORMAT statement is too 
large for the compiler to handle. 
That is, not more than 255 charac- 
ters should appear between apos- 
trophes in a FORMAT statement. 


ILLEGAL DO VARIABLE OR CONSTANT 


Explanation: DO parameter must be 
a nonsubscripted integer variable, 
Or integer constant. 
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FUNCTION NAME NOT ASSIGNED A VALUE 


Explanation: The function name is 
not defined in its function § sub- 
program (i.e., it does not appear 
on the left side of an equal Sign, 
as a list item in a READ statement 
or aS an argument in a CALL 
statement). 


NOT IN INTEGER MODE 


Explanation: The associated vari- 
able indicating the relative posi- 
tion of a record in a direct 
access FIND, READ, or WRITE state- 
ment is not an integer variable. 


DO VARIABLE REDEFINED 


Explanation: The same variable is 
used as the DO variable more than 
once in nested DO loops. 


FUNCTION ARGUMENT MISSING 


Explanation: An argument in a 
function reference is misSing. 


THIS MESSAGE IS A COMPILER ERROR 





Explanation: Compiler's  inter- 
mediate text contains meaningless 
code. 


Compiler Action: Compilation is 


terminated. 
INVALID CALL OR IF STATEMENT 


MULTI-DEFINED NAME OR KEYWORD 
Explanation: A name is redefined, 
or a keyword is used aS a vari- 
able. | 

ILLEGAL ARGUMENT 

Explanation: An illegal argument 


is specified for a call to a 
function or subroutine. 


WRONG MODE 


Explanation: The mode of the 
argument does not agree with the 


mode of the in-line function. 
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INCORRECT NESTING OF DO 


Explanation: The last statement in 
the range of the DO loop nested 
within other DO loops exceeds’ the 
range of one or more of those DO 
loops. 


ILLEGAL EQUAL SIGN 


Explanation: Two equal signs 


appear in the same statement. 


SUBSCRIPT OR ARRAY NOT ALLOWED 
Explanation: A subscript or array 
1s not allowed in Statement Func- 
tion definition. 


UNDEFINED STATEMENT NUMBER 


The statement number 
does not exist in the 


Explanation: 
referred to 
program. 


NAME MISSING OR ILLEGAL DELIMITER 


Illegal delimiter 
found. For example, X=A+*B. A 
variable or constant is missing 
between the two operators or one 
of the operators is superfluous. 


Explanation: 


WRONG NUMBER OF ARGUMENTS IN CALL 


Explanation: The number of argu- 
ments in Statement Function ref- 
erence or in an in-line function 
reference does not agree with the 
function definition. 


TOO MANY PARAMETERS 

Explanation: The maximum number 
of arguments allowed in a_subpro- 
gram call or definition is 48. 
ILLEGAL SUBPROGRAM NAME 
Explanation: Name of a function 
or subroutine call is not defined 


aS a function or subroutine sub- 
program name. 


MORE THAN 25 LEVELS OF DO NESTING 


Explanation: Not more than 25 DO 
loops may be nested. 


INVALID RESULT FIELD 
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Explanation: The result field of 
an arithmetic statement is inval- 
id. 


ILLEGAL NUMBER OF STATEMENT NUM- 
BERS 


Explanation: An arithmetic IF 
statement must contain exactly 
three statement numbers. 

PROGRAM TOO BIG 

Explanation: The object module 





has exceeded the basic register 


range. 


INCONSISTENT EQUATE 


Explanation: For example, EQUIVA- 
LENCE (A(1),B),(A(2),C),(B,C) or a 
double-precision variable in COM- 
MON is not on the proper boundary. 


TWO VARIABLES IN COMMON ARE EQUAT- 
ED 


Explanation: Two Or more vari- 
ables equivalenced are in COMMON. 





COMMON EXTENDED UPWARD 


Explanation: An EQUIVALENCE 
Statement cannot cause COMMON to 
be extended before the beginning 


of the COMMON area. 


DUMMY ARRAY OR VARIABLE IN COMMON 


A dummy variable or 
COMMON. 


Explanation: 
array iS not permitted in 


EQUATED NAME NOT A VARIABLE 


Explanation: The equated name 


must be a variable. 


WARNING-~-POSSIBLE MISSING DEFINE 
FILE STATEMENT 





Explanation: There is no DEFINE 
FILE statement for a data set 
reference number specified in a 
direct access FIND, READ, or WRITE 
statement. 


WARNING--LAST EXECUTABLE STATEMENT 
NOT RETURN, STOP, IF OR GO TO 
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Explanation: The last executable 
Statement of a program should be a 
RETURN, STOP, IF, or an uncondi- 
tional GO TO statement. 


Compiler action: The compiler 
generates a RETURN before the END 
statement. 


WARNING~--STATEMENT CONTAINS SUPER- 
FLUOUS INFORMATION 


Explanation: The statement has 
been compiled but something super- 
fluous exists at the end, e.g., 
REWIND I XYZ 

XYZ is superfluous 


WARNING~--SUGGEST SUBDIVIDING PRO- 
GRAM 


Explanation: Program causes use 
of spill base register producing 


inefficient object code 


User Response: Subdivide program 


into a main program and ae series 
of subprograms. 

WARNING--BLANK CARD 

Explanation: The card contains. 
only a statement number. 

Compiler Action: The card is 
ignored. 

WARNING--TOO MANY DIGITS IN NUMBER 


WARNING--STATEMENT NUMBER MISSING 


Explanation: Format statement 
must have a statement number. 


Compiler Action: The statement is 


ignored. 


WARNING--UNREFERENCED FORMAT 
STATEMENT 
Explanation: A FORMAT statement 


is not referred to by any other 
Statement. 


Compiler Action: The FORMAT 


statement is not processed. 


WARNING--~REDUNDANT COMMA 


Explanation: There is a redundant 
comma in the statement. 
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The redundant 


Compiler Action: 
comma iS ignored. 


WARNING--LINE TOO LONG 


Explanation: Record length indi- 
cated in the FORMAT statement 
exceeds length stated or assumed 
for the compiler option LINELNG. 


WARNING--END CARD MISSING 


Explanation: The end of the 
source program is reached and an 


END card is not there. 


Compiler Action: Processing con- 


tinues as if it were there. 


WARNING-~-RIGHT PARENTHESIS MISSING 


Explanation: The right parenthe- 
Sis in the statement is missing. 


Compiler Action: Processing 
tinues as if it were there. 


con- 


WARNING--ZERO OR NO COUNT IN X 
CONVERSION 


Explanation: The number preceding 
the X format code is 0 or blank. 


Compiler Action: Processing con- 
tinues, ignoring the xX format 
code. 


WARNING--PARAMETERS MISSING 


Explanation: There are no param- 
eters following a left parenthesis 
Or a comma. 


WARNING-~-UNREFERENCED ASF ARGUMENT 


Explanation: Argument of state- 
ment function not referred to in 
the arithmetic expression of the 
statement function. 


WARNING--EXCESSIVE RIGHT PARENTHE- 
SIS 


Compiler Action: The additional 
right parentheses in the statement 
are ignored and processing contin- 
ues. 





WARNING--ARRAY 
USED AS SCALAR 


Explanation: The name of the 
array is not followed by ae sub- 
script enclosed in parentheses. 


WARNING--STATEMENT NUMBER ON DEC- 
LARATIVE STATEMENT 
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Explanation: The statement number 
associated with the declarative 
Statement is superfluous. 


LOAD MODULE EXECUTION DIAGNOSTIC MESSAGES 
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The load module produces three types of 
diagnostic messages: 


e Operator messages. 


e Execution error messages. 
Program interrupt messages. 


Operator Messages 


Operator messages for STOP and PAUSE are 
generated by FORTRAN load modules. 

The message for a PAUSE is of the form 
yy IHCO01A PAUSE xxxxx 
where: 


yy is the identification number and 
XXKXK 1S the number specified in the 


PAUSE source statement. 
Explanation: A PAUSE iS executed. The 
programmer should give instructions’ that 
indicate the action to be taken by the 


operator when the PAUSE is encountered. 


User Response: To resume execution, the 
Operator presses the REQUEST key. When the 


PROCEED light comes on, the operator types 
REPLY yy,'‘'Z' 


where: 
yy is the identification number and Z 

is any letter or number. To resume 

program execution the operator must 

press the alternate coding key anda 

numeric 5. 

of 


The message for a STOP statement is 


the form 
THCOO2I STOP xxxxx 


where: 
XxXxxXxx is the number specified in the 


STOP source statement. 


User Response: None 


Program Interrupt Messages 


Program interrupt messages containing 
the old program status word (PSW) are 
written when an exception occurs. The 


format is: 


IHC210I PROGRAM INTERRUPT (P) - OLD PSW IS 
9 
XXXXxXxXxX)CUXXXXXXXX 
D 
F 
The letter P in the message indicates 
that the interruption was precise. This 
will always be the case for non- 


specification interrupt messages in FORTRAN 
except when using machines with special 
hardware on which imprecise interruptions 
May occur. 


The four characters in the PSW (i.e., 9, 
C, OD, or F) represent the code number (in 
hexadecimal) associated with the type of 
interruption. The following text describes 
these interruptions. 


Fixed-Point-Divide Exception: The fixed- 
point-divide exception, assigned code 


number 9, iS recognized when division of a 
fixed-point number by zero is attempted. A 
fixed-point divide exception would occur 
during execution of the following state- 
ments: 


J=0 
I=7 
K=I/J 


Exponent-Overflow Exception: The exponent- 
overflow exception, assigned code number C, 


is recognized when the result of a 
floating-point addition, subtraction, 
multiplication, or division is greater than 
or equal to 16°3 (approximately 7.2 x 
1075). For example, an exponent-overflow 
would occur during execution of the state- 
ment 
A = 1.0E+75 + 7.2E+75 

When the interrupt occurs, the result 
register contains a floating-point number 
whose fraction and Sign is correct. Howev- 
er, the number is not usable for further 
computation since its characteristic field 
no longer reflects the true exponent. The 
content of the result register as it exist- 
ed when the interrupt occurred is printed 
following the program interrupt message 
with the format: 
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REGISTER CONTAINED hhhhhhhhhhhhhhhh 


where: 
. hhhhhhhhhhhhhhhh is the floating-point 


number in hexadecimal 
notation. 

Exponent overflow causes "exponent 
wraparound" -- i.¢e., the characteristic 
field represents an exponent that is 128 
smaller than the correct. one. Treating 


bits 1 to 7 (the exponent characteristic 
field) of the floating-point number as a 
binary integer, the true exponent (TE) may 
be computed, as follows: 


TE=(Bits 1 to 7)+128-64 


Before program execution continues, the 
FORTRAN library sets the result register to 
the largest possible floating-point number 
that can be represented in short precision 
(16° 2* (i-16>%)) "or in long 
(1663*(1-1671%)), but the sign of the 
result is not changed. The condition code 
is not altered. 


Exponent-Underflow Exception: The exponent- 


underflow exception, assigned code number 
D, is recognized when the result of a 
floating-point addition, subtraction, 
multiplication, or division is less than 
16=°2 (approximately 524x10-79). An 
exponent-underflow exception would occur 


during execution of the statement: 
A = 1.0E-50 * 1.0E-50 


Although exponent underflows can he 
masked, FORTRAN jobs are executed without 
the mask so that the library will handle 
such interrupts. 


When the interrupt occurs, the result 
register contains a floating-point number 
whose fraction is normalized and whose sign 
is correct. However, the number is not 
usable for further computation since its 
characteristic field no longer reflects the 
true exponent. The content of the result 
register as it existed when the interrupt 
occurred is printed following the program 
interrupt message with the format: 


REGISTER CONTAINED hhhhhhhhhhhhhhhh 


where: 
hhhhhhhhhhhhhhhh is the floating-point 
number in hexadecimal 
notations. 
Exponent underflow causes “exponent 
wraparound" - ij.e., the characteristic 


field represents an exponent that is 128 
larger than the correct one. Treating bits 
1 to 7 (the exponent characteristic field) 
of the floating-point number as a binary 
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precision 4. 


integer, the true exponent (TE) may be 
computed as follows: 


TE=(Bits 1 to 7)-128-64 


Before program execution continues, the 
FORTRAN library sets the result register to 
a true zero of correct precision. If the 
interrupt resulted from a floating-point 
addition or subtraction operation, the con- 
dition code is set to zero to reflect the 
setting of the result register. 


Note: The System/360 Operating System FOR- 
TRAN programmer who wishes to take advan- 
tage of the “exponent wraparound" feature 
and handle the interrupt in his own program 
must call an assembly language subroutine 
to issue a SPIE macro instruction which 
will override the FORTRAN interruption rou- 
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ating-Point-Divide 7. The 
code number F, is recognized when division 
of a floating-point number by zero is 
attempted. A floating-point divide 


exception would occur during execution of 
the following statements: 


Execution Error Messages 


In the following text, the error codes 
are given with an explanation describing 
the type of error. Preceding the explana- 
tion, an abbreviated name is given indicat- 
ing the origin of the error. Unless other- 
wise specified, a condition code of 16 is 
generated and the job step is terminated. 


The abbreviated name for the 
the error is: 


origin of 


IBC - IHCFCOME, IHCFIOSE, and IHCDIOSE 
routines (perform input/output conver- 
sions for FORTRAN load module execution 
and act as an interface between FORTRAN 
I/O statements and the control program). 


LIB - SYS1.FORTLIB. 
of the messages, the module name is 
given followed by the entry point 
name(s) enclosed in parentheses. 


In the explanation 


IBERR - IHCIBERR Routine (detects error 


conditions that arise because a load 
module is executed that has FORTRAN 
language errors indicated in diagnostic 


messages given when the source module 
was compiled). 
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LIB - SYS1.FORTLIB. In the explanation 
of the messages, the module name is 
given followed by the entry point 


name(s) enclosed in 


parentheses. 


IBERR - IHCIBERR Routine (detects error 


conditions that 
module 
language errors indicated in 
messages 


arise because a load 
executed that has FORTRAN 
diagnostic 
given when the source module 


is 


wasS compiled). 


ITHC2111 


ITHC2121 


ITHC2131 


THC2141 


IHC215I 


ITHC2161 


THC2171 


ITHC2181 


IHC2191 


Explanation: IBC -- An invalid 
character has been detected ina 
FORMAT statement. 


Explanation: IBC ~-- An attempt 
has been made to read or write, 
under FORMAT control, a record 
that exceeds the BLKSIZE value. 


Explanation: IBc -- The input 
list in an input/output statement 


without a FORMAT specification is 
larger than the logical record. 


Explanation: FIOCS -- For records 
in sequential data sets written 
without FORMAT control, for which 
the RECFM subparameter must be V 
(variable), either U (undefined) 
or F (fixed) was specified. 


Explanation: IBc -- An invalid 
character exists for the decimal 


input corresponding to an I, E, F, 
or D format code. 


SLITE-SLITET X IS AN ILLEGAL VALUE 


Explanation: LIB -- An invalid 
sense light number was detected in 
the argument list in a call to the 
SLITE or SLITET subroutine. 


Explanation: IBC -- An end of 
data set was sensed during a READ 
operation; that is, a program 


attempted to read beyond the data. 


I/O ERROR Xxx...XXX 

Explanation: IBC -- A _ permanent 
input/output error has been 
encountered, or an attempt has 


to read or write with 
magnetic tape a record that is 
less than 18 bytes long. 
XXX...XXX 1S the character string 
formatted by the SYNADAF macro 
instruction. For an interpreta- 
tion of this information, see IBM 


System/360 Operating System Super- 


visor and Data Management  Macro- 
Instructions, Form C28-6647. 


been made 


Explanation: FIOCS -- A data set 
is referred to in the load module, 


THC2201 


IHC2301 


THC2311I 


THC2321 


IHC2331 


THC2341 


IHC2351 


THC2361 


IHC2371 


| IHC2411 
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but no DD statement is supplied 
for it, or a DD statement has an 
erroneous ddname. 


Explanation: FIOCS -- A data set 
reference number exceeds the limit 
specified for data set reference 
numbers when this operating system 
was generated. 


SOURCE ERROR AT ISN xxxx - EXECU- 
TION FAILED 

Explanation: IBERR -- During load 
module execution, a source state- 
ment error iS encountered. The 
internal statement number for the 


source statement iS xxxx. 


Explanation: DIOCS -- Direct ac- 
cess input/output statements are 


used for a sequential data set, or 
input/output statements for a 
sequential data set are used fora 
direct access data set. 


Explanation: DIOCS -- Relative 
position of a record is not a 
positive integer, or the relative 
position exceeds the number of 


records in the data set. 


Explanation: DIOCS -- The record 
length specified in the DEFINE 
FILE statement exceeds the physic- 
al limitation of the volume 


assigned to the data set in the DD 
statement. 


Explanation: DIOCS -- The data 
set assigned to print execution 
error messages cannot be a direct 
access data set. 

Explanation: DIOCS -- A data set 
reference number assigned to a 
direct access data set has been 


used for a sequential data set. 


Explanation: DIOCS -- A READ is 
executed for a direct access data 
set that has not been created. 


Explanation: DIOCS -- Length of 
record read did not correspond to 
length of record specified in the 
DEFINE FILE statement. 


FIXPI INTEGER BASE=0, INTEGER 
EXPONENT=X, LE 0 

Explanation: LIB -- For an ex- 
ponentiation operation (1I**J) in 
the subprogram IHCFIXPI (FIXPI#) 
where I .and J represent integer 
variables or integer constants, 


I=0 and J<0 is an error. 
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| IHC2421 


| ZHC243I 
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| ITHC245T1 


| IHC2511 


IHC2521 
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FRXPI REAL*4 BASE=0.0, INTEGER 
EXPONENT=X, LE 0 

Explanation: LIB -- For an ex- 
ponentiation operation (R**J) in 


the subprogram IHCFRXPI(FRXPI#), 
where R represents a real variable 


Or constant, and J represents an 
integer variable or constant, R=0 
and J<0O is an error. 

FDXPI REAL*8 BASE=0.0, INTEGER 
EXPONENT=X;,, LE 0 

Explanation: LIB -- For an ex- 
ponentiation operation (D¥**J) in 


the subprogram IHCFDXPI(FDXPI#), 
where D represents a double preci- 
sion variable and J represents an 
integer variable or constant, D=0 
and J<0O is an error. 


FRXPR REAL*4 REAL* 4 


EXPONENT=X. X, 


BASE=0.0, 
LE 0 


Explanation: LIB -- For an ex- 
ponentiation operation (R**S) in 
the subprogram IHCFRXPR(FRXPR#), 
where R and S are real variables 
or real constants, R=0 and S<0 is 
and error. 


FDXPD REAL*8 REAL* 8 


EXPONENT=X. X, 


BASE=0.0, 
LE 0 


Explanation: LIB -- For an ex- 
ponentiation operation (D**P) in 
the subprogram IHCFDXPD(FDXPD#), 
where D and P are double precision 
variables or double precision con- 
stants, D=0 and P<0O is an error. 


SORT NEGATIVE ARGUMENT=X. X 


Explanation: LIB -- In the sub- 
program IHCSSQRT(SQORT), an argu- 
ment less than 0 is an error. 


EXP ARG=X.X, GT 174.673 


Explanation: LIB -- In the sub- 
program IHCSEXP(EXP), an argument 
greater than 174.673 is an error. 


| IHC2531 


ITHC2541 


| IHC261I 


| IHC2621 


| IHC2631 


THC 2641 


ALOG-~ALOG10 ARG=X.X LE ZERO 


Explanation: LIB -- In the _ sub- 
program IHCSLOG(ALOG and ALOG10), 
an argument less than or equal to 


zero iS an error. Because this 
subprogram is called by an 
exponential subprogram this mes- 
sage also indicates that = an 


attempt has been made to raise a 
negative base to a real power. 


SIN-COS /ARG/=/X.X(HEX=X)/, 
GE PI*¥2**18 


Explanation: LIB -- In the sub- 
program IHCSSCN(SIN and COS), the 


absolute value of an argument 
greater than or equal to 218ex is 
an error. 

(2128e% =. 82354966406249996D+06) 
DSQRT NEGATIVE ARGUMENT=xX. xX 
Explanation: LIB -- In the sub- 
program IHCLSORT(DSQRT), an argu- 
ment less than 0 is an error. 

DEXP ARG=X.X, GT 174.673 
Explanation: LIB -- In the sub- 


program IHCLEXP(DEXP), an argument 
greater than 174.673 is an error. 
DLOG-DLOG10 ARG=X.X, LE ZERO 


Explanation: LIB -- In the subpro- 
gram IHCLLOG(DLOG and DLOG10), an 


argument less than or equal to 
zero iS an error. Because the. 
subprogram is called by an 
exponential subprogram, this mes- 
sage also indicates that an 
attempt has been made to raisea 
negative double precision base to 
a power. 

DSIN-DCOS /ARG/=/X. X (HEX=X)/, 

GE PI*2**50 

Explanation: LIB -- In the sub- 


program IHCLSCN(DSIN and DCOS), 
the absolute value of an argument 
greater than or equal to 25°%ex is 
an error. | | 7 

(25° x =, 35371188737802239D+16) 
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ACCT parameter 23 
ACCT.procstep parameter 23 
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editor 43 
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Argument list 79,99,102-104 
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calling sequence 99 
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BACKSPACE statement 49,62 
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BCD compiler option 38 

BLKSIZE subparameter 55,56 
Blocked records 36,41-42,59,61 
BUFNO subparameter 55,57,62 
Bypassing a job step 23 

Byte 35 


Card input and output 26,27 
Carriage control characters 
Catalog 10 
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IBM supplied 12-13 
invocation of 21 
overriding 13,22-23,24,68-72 
steps 13 
user-written 67 
Cataloged procedure name parameter 21 
CATLG subparameter 31 
CHANGE linkage editor control statement 45 
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COMMON area 75,101 
Compile and link editor cataloged procedure 


27,56 
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(FORTECL) 65 
Compile cataloged procedure (FORTEC) 65 
Compile, link edit, and execute cataloged 

procedure (FORTECLG) 65 
Compiler 

ddnames 35-36 

device classes 36 
error/warning messages 
informative messages 


87, 106-115 
86,106 


multiple or batched compilation 39-40 
name 35 
object module deck structure 86-87 


options 37-39 
restrictions 84 
source listing 85 
storage map 85 
Concatenating data sets 
with other data sets 25 
with the system library 26 
COND parameter 
in the EXEC statement 23 
in the JOB statement 18 
COND.procstep parameter 23 
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in the EXEC statement 23 
in the JOB statement 18 
meaning of 18 
Constants 35 
CONTIG subparameter 54 
Continuing control statements 15 
Control fields in variable-length 
records 59,60,61 
Control statement messages 18 
Conversion for tape data sets 56 
Creating data sets 50-64 
Cross-reference list, linkage editor 88 
CYL subparameter 54,81, 82 
Cylinders, direct-access device 54,81 
DATA parameter 27 
Data in input stream 27 
Data set: reference number 47 
Data sets 9 
cataloged 10 
generation 10 
indexing 10 
labels 10 
name 
qualified 10 
unqualified 10 
organization 
direct access 12 
partitioned 12 
sequential 12 
residence 10 
DCB parameter 27,55 
DCB ranges and assumptions 
DD statement 
asterisk parameter 26 
DATA parameter 27 
DCB parameter 27,55,56 
ddname 24,52 


63,64 
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DDNAME parameter 52 ACCT.procstep parameter 23 






definition of 24,50,80 COND parameter 23 
DISP parameter 30,55 COND.procstep parameter 23 
DSNAME parameter 30,51 definition of 19 
DUMMY parameter 51 name 21 
LABEL parameter 48,54-55 PARM parameter 22,37, 69 
SEP parameter 80 PARM.procstep parameter 22,69 
SPACE parameter 53-54,79,81 PGM parameter 21 
SPLIT parameter 81 PROC parameter 21 
SUBALLOC parameter 82 Execution, load module 
SYSOUT parameter 28,49,55 DCB assumptions 64 
UNIT parameter 28,52,81 ddnames 46-48 
VOLUME parameter 52-53 device classes 49 
ddname 24,52 error message data set 49 
DDNAME parameter 52 errors (see error-warning messages) 
Deck compiler option 38,85 program name 46 
Deck structure, object module 86 restrictions 83 
DEFER subparameter 80 storage map 86 
DEFINE FILE statement 62,79 EXPDT subparameter 55 
DELETE subparameter 30 Expiration date for data sets 55 
Delimiter Statement 31 Exponent-overflow 89,115 
DEN subparameter 56 Exponent-underflow 89,115 
Density, tape 56 Exponentiation 73-74 
Device class 10 External references 11,41-45,86 
Diagnostic messages 86 
Dictionary for the compiler 84 Fields in job control statements 
Direct access data sets name field 15 
buffer length 62 operand field 15 
number of buffers 62 Operation field 15 
record length 62 Fixed-length records 56,57,58,59 
Direct access programming 77-79 Fixed-point-divide 89,118 ¢ 
associated variable 79 Floating-point-divide 89,11; 
DEFINE FILE statement 79 FORTEC : 
randomizing techniques 77 description of 65 
record chaining 78 use of 13,32,65 
skeleton records 78 FORTECL 
synonyms 78 description of 65 
Directory use of 13,33,65 
index 12 FORTECLG 
quantity 54,81 description of 67 
DISP parameter 30,55 use of 13,34,65 
Disposition of a data set 30,55 FORTELG 
DO loops 74-75 description of 65 
Double precision 35 use Of 13,33-34,65 
Double-word 35 FORTRAN library 12,41,43,83 
DSNAME parameter 30,51 FORTRAN records 
DUMMY parameter 51 direct-access data sets 62 
DUMP subroutine 76-77 sequential data sets 56,57 


FORTRAN sequence number 47-49 
FTxxFyyy 47 
EBCDIC compiler option 38 


EBCDIC mode 27 Generation data group 10,29 
END card for object modules 85 Generation data set 10,29 
END FILE statement 47,48,62 Generation number 10,29 
ENTRY linkage editor control statement 45 
EQUIVALENCE statement 83 IEJFAAAO 35 
Error message data set 49 IEWL 41 
Error/warning messages | TEWLE150 41 
generated by the compiler 87,106-115 IEWLE180 41 
generated by the linkage editor 88 ITEWLE44O 41 
generated for load modules 89,115-118 INCLUDE Linkage Editor Control Statement 
ESD card 85 42, 43 
Exceptions Index 
exponent-overflow 89,115 directory 12 
exponent-underflow 89,115 for cataloged data sets 10 
fixed-point-divide 89,115 Index name 10 
floating-point-divide 89,116 Informative messages 86,106 
EXEC statement Initialization in programs 73 
ACCT parameter 23 Input 
ACCT.procstep parameter 23 to the compiler 32,37 
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to the linkage editor 41-42 
Input stream 9,26 
INSERT linkage editor control statement 45 
Integer constants and variables 35 
Intermediate storage device 35,55 
Internal statement number 87 
Interrupt messages 89,118 
I/O devices 

address 27,52,80,81 

name 27,52,80,81 

number Of 27,52,80,81 


Job 9 
Job control statements 
comments 15 
continuing 15 
notation for defining 
JOB statement 
account number parameter 18 
accounting information parameter 18 
_- COND parameter 19 
definition of 17 
MSGLEVEL parameter 18 
name 18 
programmer's name parameter 18 
Job step 9 
JOBLIB DD statement 
Jobname 18 


14-15 


16-17 


26,31,47 


KEEP subparameter 30 
Keyword parameters and subparameters 15 
Keyword.procstep 22,69 


LABEL parameter 48,54-55 
Labels, data set 10,28,48,54-55 


Length 
buffer 56,62 
Of FORTRAN records 57,62 
of logical records 57,62 


LET linkage editor option 45 


Library 
automatic call 41,42,43 
FORTRAN 12,41,43, 83 


private 21 
system 21 
LIBRARY Linkage editor control 
Statement 43 
LINELNG compile option 38 
Link edit and execute cataloged 
procedure (FORTELG) 65 
Linkage conventions 100,101 
Linkage editor | 
additional input 43 
automatic call library 41,42,43 
control statements 43-44 
cross-reference list 45,88 
ddnames used with 42 
definition of 11 
device classes 42 
diagnostic messages 88 


module map 45,88 
name 41 
options 43-44 


primary input 41 
priority 43 
restrictions 84 
secondary input 41 
LIST linkage editor option 46 


LOAD compiler option 38 
Load module 
cross-reference list 88 
definition of 11 
execution of (see execution, load 
module) 
map 88 
restrictions 84 
Locations, storage 35 
Logical records 
fixed-length 56-63 
format of 56-63 
variable-length 56-63 
LRECL subparameter 56 


MAP 
compiler option 38 
linkage editor option 45 
Member of a PDS 12 
Messages 
compiler error/warning 
compiler informative 
control statement 18 
linkage editor 88 
load module 89,115-118 
Operator 89,115 
program interrupt 89,118 
source module diagnostic 86,87 
Minimum system requirements 73 
MOD subparameter 30 
MODE subparameter 27 
Module map 
load module 8:8 
object module 73 
MSGCLASS parameter 19 
MSGLEVEL parameter 18 
Multiple compilation 39-40 
Multiple link editing 44-45 
Multiprogramming with a variable number 
of tasks (MVT) | 
cataloged procedures 66,82 
job control language 14 
job management 14 
programming considerations 82 
MVT (see Multiprogramming with a variable 
number of tasks) 
MXIG subparameter 54 


87,106-115 
86,106 


NAME 
compiler option 38,40 
linkage editor control statement 44 
Name sSsubparameter 28,52, 81 
NCAL linkage editor option 46 
NEW subparamter 30 
NL subparameter 48,55 
NOADJUST compiler option 
NODECK compiler option 38 
NOLOAD compiler option 38 
NOMAP compiler option 38 
NOSOURCE compiler option 38 
Notation for defining control statements 
16-17 
Number of I/O devices subparameter 
28,52,81 


39,73 


Object module 
card deck 85-86 
definition of 11 
map 85 
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OLD subparameter 30 

Optimization 
ADJUST option 73 
direct-access programming 77-79 
DUMP subroutine 76-77 
implied DO in I/O statements 75 
initialization 73 
I/O operations 75,77-79 
NOADJUST option 73 | 


of arithmetic expressions 73-74 
Of DO loops 74-75 
of exponentiation 73-74 
passing arguments 79 
PDUMP subroutine 76-77 
program structure 75-76 
Subscripts 74-75 
Options 
compiler 37-39 
linkage editor 43-44 
Organization of data sets 12 
Output 
Of a load module 88-89 
of the compiler 35-36,85-88 
of the linkage editor 41,88 


OVERLAY linkage editor CONTROL 
Statement 45 

Overlaying load modules 46 

Overriding cataloged procedures 
13,22-23,24,68-72 

OVLY Linkage editor option 46 


Parameters 
keyword 15 
positional 15 
PARM parameter 22,37,69 
PARM.procstep parameter 
Partitioned data set 12 
PASS subparameter 31 
Passed data sets 31 
PasSing arguments 
call by name 79 
call by value 79 
PAUSE statement 89,115 
PDS (see partioned data set) 
PDUMP subroutine 76-77 
PGM parameter 21 
Positional parameters and subparameters 15 
PRFRM compiler option 36,39,63 
Primary input 41 
Primary quantity subparameter 
Printer spacing 27 © 
Priority schedulers 14 
PRIVATE subparameter 52 
Private volume 52 
PROC parameter 21 
Procedure step 13 
Procedure, cataloged 12-13 
~Procstep 21,22 
Procstep.ddname 25 
Procstep.SYSIN 32 
Programmer's name parameter 18 
PRTSP subparameter 27 
PRTY parameter 19 


22,69 


53,81 


Qualified name 10 
Randomizing techniques T77 


Real constants and variables 35 
RECFM subparameter 56 
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Record chaining 78 

REF subparameter 53 

REGION parameter 19,24 

Register use 100 

REPLACE linkage editor control 
Statement 45 

RETAIN subparameter 52 

Retention period for data sets 55 

RETPD subparameter 55 

Retrieving data sets 28-29,48-49 

REWIND statement 49,62 

RLD cards 85 

RLSE subparameter 54 

ROUND subparameter 54 


Save area 99 

Secondary input 41 

Secondary quantity subparameter 

Segment numbers 88 

SEP parameter 81 

SEP subparameter 81 

Sequential data set 12 

SER subparameter 52 

Serial number, volume 53 

SHR subparameter 30 

SIZE compiler option 

Skeleton records 78 

SL subparameter 48,55 

SOURCE compiler option 

Source listing 85 

Source module 11 

SPACE compiler option 36, 39 

Space on direct-access volumes 

SPACE parameter 53-54,81 

Specifying execution of a program 
described in a cataloged procedure 22 
described in a previous job step 21 
in a library 21 

SPLIT parameter 81 

STACK subparameter 27 

Stacker selection 27 

Standard labels 10,28,48,54 

step 
job 9 
procedure 13 

Stepname 18 

STOP statement 

Storage map 8&6 

SUBALLOC subparameter 82 

Subparameters 15 

Subprograms, assembler language 99 

SYSCP device class 37 

SYSDA device class 37 

SYSIN ddname 32, 36,37 

SYSLIB ddname 42 

SYSLIN ddname 36,37,42 

SYSLMOD ddname 42 


53,81 


38,73 


38,85 


53-54,81 


89,115 


SYSOUT parameter 28,49,55 
SYSPRINT ddname 36,37 
SYSPUNCH ddname 36,37 


SYSSQ device class 37 
SYSUT1 ddname 36,37 
SYSUT2 ddname 36,37 
SYS1.FORTLIB 12,41,83,116 


Tape density 56 

Temporary names for data sets 
Terminating a job 18 

TRK subparameter 54,82 


30,52 


TRTCH Subparameter 56 
TXT card 85 


Unblocked records 
direct-access data set 62-63 
sequential data set 56-62 
UNCATLG sSubparameter 31 
Undefined logical record 59 
UNIT parameter 27,52,80 
Unit record data sets 26-27,55 
Unqualified name 10 


Variable-length logical record 
Variables 35 


58,59 


Volume 
Volume 
Volume 
VOLUME 
Volume 
Volume 


10 
count subparameter 52 
mounting, deferred 80 
parameter 52-53 
sequence number subparameter 52 
serial number 53 


Warning messages (see error/warning 
messages) 


Word 


35 


XCAL linkage editor option 45 


XREF linkage editor option 
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(applies to -2) 

N28-0580 


(applies to -2) 


IBM System/360 O erating S stem 
Basic FORTRAN LV (E) Programmer's Guide 


This Technical Newsletter, a part of Release 17 of the IBM 
System/360 Operating System, provides replacement pages for the 
publication IBM System/360 Operating System: FORTRAN IV (E) 
Programmer's Guide, Form C28- -2. These replacement pages 
remain in effect for subsequent releases unless specifically 
altered. Pages to be inserted and/or removed are listed below. 


Pages 


Cover, preface 
11-16,1 

19=22 

25-32 (31.1 added) 
37-38,.1 

47-56.1 

57-58 

61-62.1 

75-76.1 

77=-78.2 


Changes to the text, and small changes to illustrations, are indi- 
cated by a vertical line to the left of the change; changed or 
added illustrations are denoted by the symbol e to the left of the 
caption. 


Summary of Amendments 


This newsletter contains information describing two newly supported 
FORTRAN features: logical backspace and partitioned data set 
processing. New sections have also been added to explain how to 
use the comment statement, how to increase processing efficiency, 
and how to avoid operator intervention for file-protected tape 
volumes. Additional information relating to the DISP parameter of 
the DD statement is also included, and miscellaneous clarifications 
and corrections have been made throughout the publication. 


File this cover letter at the back of the publication to provide a 
record of changes, 


IBM Corporation, Programming Publications, 1271 Avenue of the Americas, New York, N.Y. 10020 


PRINTED IN U.S.A. 


